mit folgendem Code überprüfe ich in der Zelle F17 einen vorhandenen String, ob mein Hausname
darin vorkommt ( mit unterschiedlichen Schreibweisen ):
Sub Test()
Dim laenge As Long
' String in "F17": GOLEMBIEWSKI WERNER UND CHRISTEL, Golembiewski WERNER UND CHRISTEL, _
golembiewski WERNER UND CHRISTEL
laenge = InStr(1, Range("F17"), UCase("Golembiewski"))
If laenge = 1 Then
MsgBox laenge
Else
laenge = InStr(1, Range("F17"), "Golembiewski")
If laenge = 1 Then
MsgBox laenge
Else
laenge = InStr(1, Range("F17"), StrConv("Golembiewski", vbLowerCase))
If laenge = 1 Then
MsgBox laenge
End If
End If
End If
End Sub
Funktioniert auch.ich möchte aber die drei Abfragen so zusammenfassen, dass nur noch eine MsgBox vorhanden ist und darin mir der Wert angezeigt wird.
Ich bekomme aber den Code dafür nicht angepasst.
Dieser Code soll soweit erweitert werden, dass ich in der Spalte "F", von Zeile 2 bis Zeile 1000, in jeder Zelle den vorhandenen String
nach meinen Namen abfrage und bei Vorhandensein aus der gleichen Zeile der Spalte "G" eine vorhandene Kontonummern in ein anderes Tabellenblatt
in die Spalte "A" Zeile für Zeile kopiert wird.
Einmal benötige ich Eure Hilfe, um den Code anzupassen und evtl. hat ein Helfer einen Lösungsvorschlag für die Gesamtabfrage.
Für evtl. Tipps und Anregungen schon mal besten Dank!
Werner