Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

205 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige