Werkt niet ;(quote:Op dinsdag 8 april 2008 21:24 schreef Deetch het volgende:
als je de regels 2 tm 10 van je bericht van maandag 7 april 2008 @ 09:31 steeds direct boven de end sub kopieert en dan de celverwijzingen aanpast zou het goed moeten gaan.
Kan vast mooier maar het zou wel moeten werken.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | If Not Application.Intersect(Target, Me.Range("L3")) Is Nothing Then If Range("L3").Value > Date - 1 And Range("L3").Value < Date + 14 Then MsgBox "De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!" End If Else Exit Sub End If If Not Application.Intersect(Target, Me.Range("L5")) Is Nothing Then If Range("L5").Value > Date - 1 And Range("L5").Value < Date + 14 Then MsgBox "1De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!" End If Else Exit Sub End If End Sub |
Je hebt gelijk, maar in een andere macro werkt het wel, op dezelfde manier. Maar ik ben es gaan kijken naar wat je zegt, en inderdaad.. door de 'end sub' eruit te slopen werkt het wel:quote:Op woensdag 9 april 2008 09:22 schreef Pheno het volgende:
Uhm, als je eerste if niet geldt dan gaat hij uit de sub (in die else) toch? Dus je onderliggende code is onbereikbaar in dat geval. Als beide ifs tegelijk kunnen (ik ken de context van dit geval niet), dan heb ik niets gezegd :)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | If Not Application.Intersect(Target, Me.Range("L3")) Is Nothing Then If Range("L3").Value > Date - 1 And Range("L3").Value < Date + 14 Then MsgBox "De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!" End If Else End If If Not Application.Intersect(Target, Me.Range("L5")) Is Nothing Then If Range("L5").Value > Date - 1 And Range("L5").Value < Date + 14 Then MsgBox "1De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!" End If Else End If End Sub |
Tnx, wist even niet waar ik op moest zoeken en heb weer alles op moeten spitten omdat ik een nederlandse excel heb.quote:Op woensdag 9 april 2008 00:05 schreef DaFan het volgende:
Tweede rij selecteren, Window -> Freeze panes
Ik heb hem in het nederlands, en met vertalen/fantasie kom ik nergens waar dat op lijkt..?quote:Op woensdag 9 april 2008 14:08 schreef DaFan het volgende:
Options -> Display options -> Show zero in cells that have a zero value.
Horror als je ze inderdaad allemaal nodig hebtquote:Op donderdag 10 april 2008 10:57 schreef Pheno het volgende:
Dat dacht ik al, daarom altijd naar de versie vragen
Waarom MS altijd die menustructuur moet aanpassen is me een raadsel, maar goed.
Laat ze maar eens eerst meer rijen dan 65636 ondersteunen in Excel 2003, daar erger ik me dan weer dood aan
Tja, als je een tekstlogging hebt van 160 mb die je eens netjes doorzoekbaar wilt makenquote:Op donderdag 10 april 2008 10:59 schreef Thrilled het volgende:
[..]
Horror als je ze inderdaad allemaal nodig hebt
vind de max van 256 rijen erger (althans voor office 97). Kan geneens een jaaroverzicht maken voor alle dagen van een jaar...quote:Op donderdag 10 april 2008 10:57 schreef Pheno het volgende:
Dat dacht ik al, daarom altijd naar de versie vragen
Waarom MS altijd die menustructuur moet aanpassen is me een raadsel, maar goed.
Laat ze maar eens eerst meer rijen dan 65636 ondersteunen in Excel 2003, daar erger ik me dan weer dood aan
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |