Hallo *,

ich bräuchte dringend Hilfe. Am Sonntag habe ich meine Frage ins Forum gestellt, aber leider noch keine Antwort erhalten. Vielleicht liegt es daran, dass ich mich nicht verständlich ausgedrückt habe. Ich versuche es nochmal.

Der Blattname "neu" bzw. "alt" in dem nachstehenden Beispiel soll variabel gehalten sein. Die zu verwendenden Blattnamen stehen auf einem Blatt in einer Spalte und sollen über eine Schleife nacheinander verwendet werden. Welche Variable brauche ich für den Namen und wie kann ich diesen zuweisen?

Sub Datenholen()

Dim suchbegriff As String
Dim blatt As Range
Dim blatt1 As Range
Dim spalte As Long
Dim ergebnis As Double
Dim zeile As Double


suchbegriff = "AnsatzHungerHorst"

Set blatt = Worksheets("alt").Range("A6:L69")

Set blatt1 = Worksheets("neu").Range("A6:A69")

sp = 10

ergebnis = Application.WorksheetFunction.VLookup(suchbegriff, blatt, sp, 0)
zeile = Application.WorksheetFunction.Match(suchbegriff, blatt1, 0)

Range("Auswertung!B11").Value = ergebnis
Range("Auswertung!B12").Value = zeile


End Sub

Vielen Dank einstweilen

Gruß Oma