Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: For - Next Schleife

For - Next Schleife
12.06.2024 08:42:59
addi23
Hallo Zusammen,

aktuell nutze ich folgende Schleife:

For Each sh in wbQuelle.Worksheets
...
Next sh

wobei sh als Worksheet und wbQuelle als Workbook dimensioniert ist.

Nun möchte ich mit der identischen Schleife nur das ester Tabellenblatt aus sh ansprechen (kopieren)...
Stehe hier aber nun auf dem Schlauch - könnt Ihr mir dabei helfen?

Vielen Dank im Voraus und viele Grüße
addi23
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: For - Next Schleife
12.06.2024 08:50:37
Alwin Weisangler
Hallo,

beispielhaft so:


Sub BlattAktivieren()
Dim wbQuelle As Workbook, sh As Worksheet
Set wbQuelle = ThisWorkbook

For Each sh In wbQuelle.Worksheets
If sh.Name = "Tabelle1" Then sh.Activate
Next sh
End Sub


Gruß Uwe
Anzeige
AW: For - Next Schleife
12.06.2024 09:19:32
addi23
Hallo Uwe,
vielen Dank für die schnelle Rückmeldung - generell funktioniert das gut - aber ich habe dennoch ein Problem...
...die Sheets haben alle einen anderen Namen...kann man das auch über den Index oder so machen - es ist immer das erste Sheet, bzw. kann man hinterlegen, das der Sheetname immer mit "OBS" anfängt?
Vielen Dank und Gruß
addi23
Anzeige
AW: For - Next Schleife
12.06.2024 09:28:27
daniel
Hi

Das erste Sheet wäre wbQuelle.Worksheets(1)
Maßgebend ist die Anordnung der Tabellenblattreiter

Sheets,die mit OBS anfangen:

For Each sh In wbQuelle.Worksheets

If sh.Name LIKE "OBS*" Then sh.Activate
Next sh


Gruß Daniel
Anzeige
AW: For - Next Schleife
12.06.2024 10:03:06
addi23
Hallo Daniel,
vielen Dank - mit dem "LIKE..." komme ich genau dahin was ich wollte.
Danke an Euch beide!
VG addi23
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige