Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
776to780
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Tabellenblätter durchsuchen

Alle Tabellenblätter durchsuchen
27.06.2006 11:09:20
baronf
Hallo,
ich habe eine Datei mit ca. 100 Tabellenblättern. Jedes Blatt soll nach einem bestimmten Zellinhalt untersucht werden . Wird der Ausdruck("Zuschlag") gefunden, dann soll der Wert rechts neben der Zelle in eine Sammelblatt geschrieben werden. Mir kommt es auf die Schleife an. Wie kann ich diese programmieren?
Danke für Eure Hilfe Frederike

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Tabellenblätter durchsuchen
27.06.2006 11:32:45
Ralf
Hi Frederike,
folgender Code durchsucht alle Tabellenblätter nach "Zuschlag" und fügt den rechts daneben stehenden Wert in die jeweils nächste, freie Zeile in Spalte A des Blattes "Sammelblatt" ein.
Füge folgenden Code in ein allgemeines Modul ein.

Sub Durchlauf()
Dim x As Byte, zelle, Bereich$, Zeile#, ende$
Zeile = 1
For x = 1 To Sheets.Count
If Not Sheets(x).Name = "Sammelblatt" Then
ende = Sheets(x).Range("A1").SpecialCells(xlLastCell).Address
Bereich = "A1:" & ende
For Each zelle In Sheets(x).Range(Bereich)
If zelle = "Zuschlag" Then
Sheets("Sammelblatt").Range("A" & Zeile) = zelle.Offset(0, 1)
Zeile = Zeile + 1
End If
Next
End If
Next x
End Sub

Ciao, Ralf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige