Datei Excel tabelle Zeile Makro Tabellen Werktage

Excel: Zeilenweise Daten aus 20 Tabellen auslesen

Von: , Frage gestellt am Mo, 2. Jun 2008

Hallo Experten,

ich habe mehre Tabellen die heißen:

Datei20080502
Datei20080505
Datei20080506
....
Nur die Werktage.
jede dieser Tabellen ist identisch aufgebaut

│   A   │   B   │    C   │    D   │   E  │   F   │ 
──┼───────┼───────┼────────┼────────┼──────┼───────┤
1 │ Daten │ DATUM │  Daten  │  Daten  │  ID1  │ Daten │ 
2 │ Daten │ DATUM │  Daten  │  Daten  │  ID3 │ Daten │ 
3 │ Daten │ DATUM │  Daten  │  Daten  │  ID1  │ Daten │ 
4 │ Daten │ DATUM │  Daten  │  Daten  │  ID2 │ Daten │ 
5 │ Daten │ DATUM │  Daten  │  Daten  │  ID1  │ Daten │ 
6 │ Daten │ DATUM │  Daten  │  Daten  │  ID3 │ Daten │ 
7 │ Daten │ DATUM │  Daten  │  Daten  │  ID1  │ Daten │ 
8 │ Daten │ DATUM │  Daten  │  Daten  │  ID3 │ Daten │ 
──┴───────┴───────┴────────┴────────┴──────┴───────┘
Tabellendarstellung erreicht mit dem Code in FAQ:2363

Jetzt hätte ich gerne über ein Marko mehrere Tabellen erstellt in denen nur die Daten von ID1, ID2, ... drin sind.
Die einzelnen Sheets kriege ich über ein Makro geöffnet. Ich denke sogar mit Fehler abfrage ob die Datei vorhanden ist ( die nicht Werktage)
Aber wie ich in einer geöffneten Datei nach einer Zelle suche und die gesamte Zeile dann kopiere ist mir im Moment nicht klar.

Liebe Grüße
Winter

2 Antworten zu dieser Frage

Antwort von nach 33 Minuten 0 hilfreich

Re: Excel: Zeilenweise Daten aus 20 Tabellen ausle

Hallo Winter,

dazu zwei Ideen:
nach dem Laden des Sheets einen Autofilter setzen und dann die sichtbaren Zeilen abarbeiten.

Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:=False

Mit .Find(...) suchen lassen und dann durch die gefundenen Zeilen iterieren.

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

(Beispiele der EXCEL-Hilfe)

mfg

Dirk.Pegasus

Antwort von nach einem Tag 0 hilfreich

Re^2: Excel: Zeilenweise Daten aus 20 Tabellen aus

Hallo Winter,

dazu zwei Ideen:
Mit .Find(...) suchen lassen und dann durch die gefundenen
Zeilen iterieren.
```
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <>
firstAddress
End If
End With
```
(Beispiele der EXCEL-Hilfe)

mfg

Dirk.Pegasus
Hallo Dirk,

Cool
Danke, Soweit ich das sehe hilft mir das weiter.
Grüße
Winter

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!