Finden und dann daraus etwas machen
30.04.2022 14:19:25
Thomas
Setzte hier mal mein noch unvollständiges Skript hin, erkläre unterhalb vom Skript was ich damit erreichen möchte.
Sub find()
Dim letztezeile As Long
Dim Row As Long
Dim finden As Range
With Worksheets("Tabelle1")
Set finden = .Range(Cells(2, 2), Cells(5, 2)).find(what:="Schmidt", lookat:=xlWhole)
If finden Is Nothing Then
'nicht gefunden
Row = finden.Row
.Cells(5, 2) = "W"
MsgBox "Der Begriff befindet sich in Zelle: "
End
Else
'gefunden
'Ausgeben lassen wie der gef undene Begriff heißt
MsgBox "Der gefundene Begriff lautet: " & finden
'Ausgeben lassen in welcher Zelle der Begriff steht
MsgBox "Der Begriff befindet sich in Zelle: " & finden.Address
End
End If
End With
End Sub
Ich möchte folgendes erreichen.
Ich möchte mit der Find Methode in einer Range, zum Beispiel B5 bis B10 einen Wert 1, sagen wir mal W finden.
Dieser Wert möchte ich dann wenn es mal funktioniert über Variablen Dynamisch einbinden. Auch die Range der Findmethode möchte ich später dann Dynamisch verändern können.
Wenn der Wert W nicht gefunden wird muss in der Zelle B5 dieser Wert W eingefügt werden.
Wenn dann der zweite Wert zum Beispiel B nicht gefunden wird, soll ebenfalls dieser Wert B unterhalb vom letzten eingefügten wert aber nur ab B5 gezählt, eingefügt werden. (übrigens genau in dieser Passage beiss ich mir die Zähne aus.) Geht einfach nicht!
Wenn der Wert aber gefunden wurde, zum Beispiel das B, dann soll einfach dieses B überschrieben werden. Ich werde dann die Zelladresse auslesen und damit etwas machen wollen.
Das wäre eigentlich schon alles. Es soll für mich eine Grundfunktion, das wenn sie mal funktionieren würde dann Schritt für Schritt ausbauen will.
Ist noch etwas Unklar dann bitte frage.
Besten Dank an die Helfer!!!
Gruss
Thomas