Herbers Excel-Forum - das Archiv

Tabelle füllen

Bild

Betrifft: Tabelle füllen
von: Matthias

Geschrieben am: 06.04.2005 13:05:24
Hallo zusammen,
ich bin neu hier und wurde gerade mit einer Aufgabe konfrontiert bei der ich hoffe das ihr mir Helfen könnt.
Problem: Es existieren 4 Tabellen.
In den Tabellen 1,2,3 stehen in der ersten Spalte Werte.
Die Tabelle 4 spalte 1 soll nun mit diesen werten gefüllt werden.
Also so ungefähr:
Fülle tabelle4Spalte1 mit den Werten der Tabelle1Spalte1 bis keine mehr drin sind.
Danach fülle die tabelle4Spalte1 weiter mit den Werten der Tabelle2Spalte1 bis keine mehr drin sind.
Danach fülle die tabelle4Spalte1 mit den Werten der Tabelle3Spalte1 usw usw.
Könnt ihr mir da helfen??
Geht auch als Makro.
DANKE
Bild

Betrifft: AW: Tabelle füllen
von: Tobias Marx

Geschrieben am: 06.04.2005 13:14:51
Servus!
Damit sollte es gehen:
Sub kopieren()
endtbl1 = Worksheets(1).Range("A65536").End(xlUp).Row
endtbl2 = Worksheets(2).Range("A65536").End(xlUp).Row
endtbl3 = Worksheets(3).Range("A65536").End(xlUp).Row
endtbl = Worksheets(4).Range("A65536").End(xlUp).Row
Worksheets(1).Select
Range("A1:A" & endtbl1).Select
Selection.Copy
Worksheets(4).Select
Range("A1").Select
ActiveSheet.Paste
endtbl = Worksheets(4).Range("A65536").End(xlUp).Row
Worksheets(2).Select
Range("A1:A" & endtbl1).Select
Selection.Copy
Worksheets(4).Select
Range("A" & endtbl).Select
ActiveSheet.Paste
endtbl = Worksheets(4).Range("A65536").End(xlUp).Row
Worksheets(3).Select
Range("A1:A" & endtbl1).Select
Selection.Copy
Worksheets(4).Select
Range("A" & endtbl).Select
ActiveSheet.Paste
End Sub

Gruss

Tobias
Bild

Betrifft: Stop! Fehler im Makro!
von: Tobias Marx

Geschrieben am: 06.04.2005 13:16:13
Nochmal ich, hier der korrigierte Sourcecode
Sub kopieren()
endtbl1 = Worksheets(1).Range("A65536").End(xlUp).Row
endtbl2 = Worksheets(2).Range("A65536").End(xlUp).Row
endtbl3 = Worksheets(3).Range("A65536").End(xlUp).Row
endtbl = Worksheets(4).Range("A65536").End(xlUp).Row
Worksheets(1).Select
Range("A1:A" & endtbl1).Select
Selection.Copy
Worksheets(4).Select
Range("A1").Select
ActiveSheet.Paste
endtbl = Worksheets(4).Range("A65536").End(xlUp).Row
Worksheets(2).Select
Range("A1:A" & endtbl1).Select
Selection.Copy
Worksheets(4).Select
Range("A" & endtbl + 1).Select
ActiveSheet.Paste
endtbl = Worksheets(4).Range("A65536").End(xlUp).Row
Worksheets(3).Select
Range("A1:A" & endtbl1).Select
Selection.Copy
Worksheets(4).Select
Range("A" & endtbl + 1).Select
ActiveSheet.Paste
End Sub


Gruss

Tobias
Bild

Betrifft: AW: Tabelle füllen
von: Matthias
Geschrieben am: 06.04.2005 13:17:21
Hallo Tobias, Danke für die schnelle Hilfe.
Ich werde es gleich einmal ausprobieren.
Bild

Betrifft: bissken lang, Tobias
von: Uduuh

Geschrieben am: 06.04.2005 13:17:43
Hallo,
Sub kopieren()
Dim i As Integer
For i = 1 To 3
With Sheets(i)
.Range(.Cells(1, 1), .Cells(65536, 1).End(xlUp)).Copy _
Sheets(4).Range("A65536").End(xlUp).Offset(1, 0)
End With
Next i
End Sub

Gruß aus'm Pott
Udo

Bild

Betrifft: ... aber es funktioniert! o.T.
von: Tobias Marx
Geschrieben am: 06.04.2005 13:18:52


Gruss

Tobias
 Bild
Excel-Beispiele zum Thema "Tabelle füllen"
Suche über mehrere Tabellen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern Tabellenblattnamen nach Datum