Wenn B2 leer, dann B7 -VBA-
24.09.2006 10:13:48
Wolfgang
ich benötige wieder einmal die Hilfe des Forums. In einem Code soll bestimmt werden, dass grundsätzlich der Text aus B2 (etc.) in ein Textfenster übernommen werden soll. Enthält B2 keinen Text, soll der Text aus B7 übernommen werden. Ich habe mich da versucht, bekomme es aber irgendwie nicht hin. Was mache ich da falsch? - Anbei ein Auszug aus dem Code. Danke schon jetzt wieder Allen für die Rückmeldung.
Gruß - Wolfgang
Sub Textfelder_Fuellen3(ByVal x_Sheet As String)
Dim mySheet As Worksheet
'Bildschirmflackern aus
Application.ScreenUpdating = False
Set mySheet = ThisWorkbook.Worksheets(x_Sheet)
With Worksheets("Aufruf")
'Name
If Range("B2").Text = "" Then
txtName.Value = .Range("B2").Text
Else
txtName.Value = .Range("B7").Text
End If
'Vorname
If Range("A2").Text = "" Then
txtVorname.Value = .Range("A2").Text
Else
txtVorname.Value = .Range("A7").Text
End If
End With
'Bildschirmflackern ein
Application.ScreenUpdating = True
End Sub
Anzeige