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

For Each Worksheet

Forumthread: For Each Worksheet

For Each Worksheet
22.04.2003 17:18:57
Andreas
Hallo,

ich grübel jetzt schon sehr lange an folgendem code:

Sub Gesamt()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Sheets
If Left(ActiveSheet.Name, 9) = "Baugruppe" Then
Range("L65000").End(xlUp).Copy
Sheets("Zwischenablage").Select
Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next wks
End Sub

Der code soll die endbeträge aus allen tabellen, die mit dem namen baugruppe beginnen, úntereinander in die tabelle zwischenablage kopieren.
Allerdings wird nur der wert aus der aktiven tabelle kopiert (wenn sie mit namen baugruppe beginnt).

Wäre schön wenn mir dabei jemand helfen könnte

Gruß
Andreas

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: For Each Worksheet
22.04.2003 17:28:16
Klaus Schubert

Das liegt daran, weil auch immer nur auf das aktuelle Blatt Bezug genommen wird.(siehe Activesheet.Name,9).
Versuch's mal hiermit(ohne es geprüft zu haben):

Gruß Klaus

Re: For Each Worksheet
22.04.2003 17:28:45
Jens

Kleiner Umbau

Sub Gesamt()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Sheets
If Left(wks.Name, 9) = "Baugruppe" Then
wks.Range("L65000").End(xlUp).Copy
'Sheets("Zwischenablage").Select 'Brauchst du glaube nicht.
Sheets("Zwischenablage").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next wks
End Sub

Das Range("L65000")... hat sich immer nur auf die Active also di Zwischenablage bezogen, ich habe noch das Worksheet wks davor gesetzt.

Anzeige
Re: For Each Worksheet
22.04.2003 17:32:29
andre

hallo andreas,
entweder aktivierst du in der schleife das sheet,
wks.activate
oder du arbeitest in den nächsten zeilen mit wks:
If Left(wks.Name...
sheets(wks).Range("L65000").End(xlUp).Copy
gruss andre

Re: For Each Worksheet
22.04.2003 17:33:24
Andreas

Hallo Jens,
danke für deine schnelle und vor allem gute antwort.
Funktioniert wunderbar.

Gruß
Andreas

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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