Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblatt suchen, entsprechend Zellinhalt

Forumthread: Tabellenblatt suchen, entsprechend Zellinhalt

Tabellenblatt suchen, entsprechend Zellinhalt
16.11.2007 13:30:00
Cluby
Hallo zusammen,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt suchen, entsprechend Zellinhalt
16.11.2007 13:38:00
Tino
Hallo,
geht es so?
Dim monat As Worksheet, i As Integer
Set monat = Sheets(CStr(Sheets("Ausgabe").Range("D9")))
Gruss
Tino

AW: Tabellenblatt suchen, entsprechend Zellinhalt
16.11.2007 14:04:13
Cluby
Nein klappt leider nicht..
Bekomme immer nen Laufzeitfehler.
Index außerhalb des gültigen Bereichs

AW: Tabellenblatt suchen, entsprechend Zellinhalt
16.11.2007 14:10:42
Tino
Hallo,
ist dass Tabellenblatt in Ausgabe! A9 auch vorhanden!
Habe deinen Code mal etwas umgebaut.
ungetestet:

Sub blattwaehlen()
Dim monat As Worksheet, i As Integer
Set monat = Sheets(CStr(Sheets("Ausgabe").Range("D9")))
For i = 1 To Sheets.Count
If Sheets(i).Name = monat.Name Then
Sheets(i).Range("A1").Copy
Sheets("Ausgabe").Range("A20").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=  _
_
False, Transpose:=False
End If
Next i
End Sub


Gruss
Tino

Anzeige
AW: Tabellenblatt suchen, entsprechend Zellinhalt
19.11.2007 13:22:00
Cluby
Hey Tino!
Super! Klappt einwandfrei!!
Vielen Dank!!

AW: Tabellenblatt suchen, entsprechend Zellinhalt
16.11.2007 13:40:00
Renee
Hi Cluby,
Dann geht's einfacher so:

Sub stanziell()
Sheets("Ausgabe").Cells(20, 1).Value = _
Sheets(Sheets("Ausgabe").Cells(9, 4).Value).Cells(1, 1).Value
End Sub


GreetZ Renee

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige