Hallo, ich benötige zu meiner Frage von vorhin noch eure Hilfe.
Ich habe schon ein bisschen herausgefunden, hier nun das Problem
in Spalte G stehen folgende Werte:
GEMA02
GEMA03
Lichau00
Lichau01
MGE01
ERA01
ERA02
ERA03
FEP01
Ich möchte nun alle Werte die mit z.B. ERA beginnen in Spalte H ablegen. mit meinem Code bekomme ich nur die 1.Fundstelle in Spalte H.
Wie müßte mein Code denn richtig aussehen, damit in
Spalte H:
ERA01
ERA02
ERA03 steht?
Sub Kalk_Nr()
Dim Bereich As Range
Sheets("Kalkulation").Activate
ActiveSheet.Unprotect
Suchtext = InputBox("Bitte Suchtext")
Set Bereich = Sheets("Kalkulation").Columns(7).Find(Suchtext, lookat:=xlPart)
If Bereich Is Nothing Then
MsgBox ("Der Suchtext wurde nicht gefunden.")
Else
Range("Kalkulation!H1").Value = Bereich.Value
End If
End Sub
So sucht er nur bis er das Erste mal den Suchtext gefunden hat.
Brauche dringend eure Hilfe damit ich weiter komme
Besten Dank für eure Hilfe
Gruß Raik