Tabellenblatt suchen, entsprechend Zellinhalt
16.11.2007 13:30:00
Cluby
ich möchte ein bestimmtes Tabellenblatt suchen und dort einen Wert herauskopieren.
Das Name des auszuwählenden Blattes steht in D9 im Ausgabeblatt..
Ich hab es mal so probiert:
Sub blattwaehlen()
Dim monat As range, i As Integer
Set monat = Worksheets("Ausgabe").range("D9")
For i = 1 To Sheets.Count
If Sheets(1).Name = monat Then
ActiveSheet(i).range("A1").Select
Selection.Copy
Sheets("Ausgabe").Select
range("A20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next i
End Sub
Wäre toll wenn mir jemand weiterhelfen könnte..
Schönes Wochenende schonmal
Anzeige