wenn leer, dann -VBA-
04.12.2007 13:54:00
Wolfgang
mit untenstehendem Auszug aus einem Code wird bewirkt, dass die jeweilige Zelle unter der besagten Überschrift sowie Nachbarzelle in ein Textfenster eines UF übernommen werden. Wie kann ich den Code ergänzen, dass wenn die Zelle unter "KundTelekommuTelVorwahl" leer ist, alternativ dann die Zelle unter der Überschrift "KundTelekommuMobilVorwahl" sowie dann auch der Nachbarzelle übernommen wird?
Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
'Telefonnummer
Set rng = .Rows(1).Find("KundTelekommuTelVorwahl", LookAt:=xlWhole)
If Not rng Is Nothing Then
txtVorwahl.Text = "0" & rng.Offset(1, 0).Text & "/" & rng.Offset(1, 1).Text
End If