Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle Werte bei Zutreffen in eigene Tabelle

Alle Werte bei Zutreffen in eigene Tabelle
22.05.2003 19:28:02
manas
Zu meiner vorherigen WENN Frage hätte ich noch gerne gewußt, ob dies auch mit einem Makro geht?
Fragestellung:
Alle Tabellen einer Arbeitsmappe werden in Spalte "B" danach durchsucht, ob das Datum in einer Zelle von "B" gleich oder größer als heute ist. Trifft dies zu -aber nur dann- sollen von jenen Blättern wo dies der Fall ist die Zellinhalte von B2 in einem Sammelblatt in Spalte " E " untereinander angezeigt werden,wobei nicht mehr aufscheinen muß von welchem Blatt der Eintrag kommt. Dank im Voraus
manas


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Alle Werte bei Zutreffen in eigene Tabelle
22.05.2003 20:09:54
Nepumuk

Hallo manas,
probier mal das aus:


Public Sub suchen()
    Dim zeile As Long, Tabelle As Worksheet, Sammelblatt As Worksheet
    Set Sammelblatt = Worksheets("Sammelblatt")
    For Each Tabelle In ThisWorkbook.Worksheets
        If Tabelle.Name <> "Sammelblatt" Then
            For zeile = 1 To Tabelle.Cells(65536, 2).End(xlUp).Row
                If IsDate(Tabelle.Cells(zeile, 2).Value) Then
                    If CDate(Tabelle.Cells(zeile, 2).Value) >= Date Then
                        Tabelle.Cells(2, 2).Copy Sammelblatt.Cells(Sammelblatt.Cells(65536, 5).End(xlUp).Row + 1, 5)
                        Exit For
                    End If
                End If
            Next
        End If
    Next
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1

Gruß
Nepumuk

Anzeige
Re: Alle Werte bei Zutreffen in eigene Tabelle
23.05.2003 10:26:04
manas

Hallo Nepumuk,
ganau so habe ich es gemeint, funktioniert super.
Du bist ein Genie!!!!!!!
Danke!
mfg manas

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige