Wenn..., dann... - VBA
03.12.2006 16:31:46
Wolfgang
folgender Code-Auszug bewirkt, dass aus einem versteckten Tabellenblatt Textboxes befüllt werden. Ich bekomme es einfach nicht hin, dass wenn die Spalte "Title" in der entsprechenden Zeile einen Eintrag hat, auch der Titel dann nach "Anrede" in der Textbox "txtAnrede" gesetzt werden soll (beides zusammen in einer Textbox). Gleiches gilt für die Telefonnummer; Steht in den Spalten "Vorwahl", "Nummer" etwas drin, sollen diese Nummern genommen werden sind diese leer, soll aus den Spalten "Mobilvorwahl" und "Mobilnummer" genommen werden. Ich wäre für jede Hilfestellung sehr dankbar. Untenstehend auszugsweise der Code. Danke schon jetzt wieder für die Rückantwort.
Gruß - Wolfgang
Sub Textfelder_Fuellen()
Dim rng As Range
With Worksheets("Daten")
' Spaltenformat soll überall Standard sein
.Cells.NumberFormat = "General"
.Columns("DD:DD").NumberFormat = "m/d/yyyy"
Set rng = .Rows(1).Find("Anrede", LookAt:=xlWhole)
If Not rng Is Nothing Then
txtAnrede.Text = rng.Offset(1, 0).Text & IIf(rng.Offset(1, 1) <> "", ", " & rng.Offset(1, 1).Text, "")
End If
Set rng = .Rows(1).Find("Name", LookAt:=xlWhole)
If Not rng Is Nothing Then
txtName.Text = rng.Offset(1, 1).Text & IIf(rng.Offset(1, 0) <> "", ", " & rng.Offset(1, 0).Text, "")
End If
Set rng = .Rows(1).Find("Vorname", LookAt:=xlWhole)
If Not rng Is Nothing Then
txtVorname.Text = rng.Offset(1, 0).Text
End If
Set rng = .Rows(1).Find("Geburtsdatum", LookAt:=xlWhole)
If Not rng Is Nothing Then
txtGebdat.Text = rng.Offset(1, 0).Text
End If
Set rng = .Rows(1).Find("Staatsangehörigkeit", LookAt:=xlWhole)
If Not rng Is Nothing Then
txtStaatsangeh.Text = rng.Offset(1, 0).Text
End If
End With
Set rng = Nothing
End Sub