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

Beiträge aus den Excel-Beispielen zum Thema "Tabelle füllen"