Bin hier im Forum schon teilweise fündig geworden.
Sub Finden()
Dim strSUCH As Variant
Dim rngSUCH As Range
Dim lngFind As Long
strSUCH = Application.InputBox("Bitte Eingabe tätigen:")
Set rngSUCH = ActiveSheet.Range("D15:D450").Find(What:=strSUCH, _
Lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngSUCH Is Nothing Then
lngFind = rngSUCH.Row
'Cells(lngFind, 1).Interior.ColorIndex = 3
Cells(lngFind, 4).Select
Else
MsgBox "Der gesuchte Wert " & strSUCH & " wurde nicht gefunden.", _
64, "Nicht gefunden."
End If
Set rngSUCH = Nothing
Range(ActiveCell, ActiveCell.Offset(intColumnOffset, 3)).Select
End Sub
Bisher funktioniert das Makro folgendermaßen:Makro starten und Suchtext in Eingabefenster eingeben
Wert wird in Spalte D gesucht und Zelle mit identischem Wert wird mit 3 nachfolgenden Zellen markiert.
Was mir fehlt ist eine Lösung bei der ich noch ein Eingabefenster für einen 2ten Suchwert in Spalte D habe.
Idealerweise im gleichen Eingabefenster oder beide gleichzeitig.
Auch diese Zelle mit dem 2ten Wert soll mit den 3 nachfolgenden Zellen markiert werden.
Sinn des ganzen ist diese zweimal 4 Markierten Zellen mit einem Tauschmakro zu vertauschen.
Tauschmakro habe ich schon .... klemmt aktuell nur mit der 2ten Eingabe.
Gruß Michael