Am besten löschen
Du solltest lieber andere Seiten im Internet aufsuchen
hi,
du kannst abfragen ob die Zeile durch 2 teilbar ist und zwischen 16 und 74 liegt.
If tc and (tr >= 16) and (tr <=74) and (tr mod 2 = 0) then: ...
Gruß,
Sam
Danke Sam
eine Frage ist es möglich die Mail-Adresse rauszubekommen,
weil ich den Hallo etwas schreiben möchte
gruß Michael
Hallo Michael,
leider keine chance, da er/sie die Mail-Adresse angegeben hat.
Sorry,
Sam
ps. Hatte auch schon mal "so einen". tja...runterschlucken
Wie kann man folgenden Code verbessern ???
Wer hat eine Idee?
Dim tc, tva, tvz, tr
tc = Target.Column = 2
tr = Target.Row
tva = Target.Value >= "a"
tvz = Target.Value <= "z"
If tc And tr = 16 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 18 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 20 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 22 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 24 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 26 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 28 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 30 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 32 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 34 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 36 Then: If tva And tvz Then ZeileAusblenden5
If tc And tr = 38 Then: If tva And tvz Then ZeileAusblenden5
usw. bis tr =74
Vielen Dank im vorraus
Gruß Michael