Hey Jungs
Hab ein kleines Problem.
Ich möchte alle Daten von den ersten 5 Tabellen in die 6 Tabelle kopieren.
Hier ist mein Code:
Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
x = 1
y = 1
Tabelle1.Activate
Range("A1").Activate
Do While Not ActiveCell.Value = ""
Tabelle6.Range("A" & y).Value = Tabelle1.Range("A" & x).Value
Tabelle6.Range("B" & y).Value = Tabelle1.Range("B" & x).Value
Tabelle6.Range("C" & y).Value = Tabelle1.Range("C" & x).Value
x = x + 1
y = y + 1
ActiveCell.Offset(1, 0).Activate
Loop
x = 1
Tabelle2.Activate
Range("A1").Activate
Do While Not ActiveCell.Value = ""
Tabelle6.Range("A" & y).Value = Tabelle2.Range("A" & x).Value
Tabelle6.Range("B" & y).Value = Tabelle2.Range("B" & x).Value
Tabelle6.Range("C" & y).Value = Tabelle2.Range("C" & x).Value
x = x + 1
y = y + 1
ActiveCell.Offset(1, 0).Activate
Loop
x = 1
Tabelle3.Activate
Range("A1").Activate
Do While Not ActiveCell.Value = ""
Tabelle6.Range("A" & y).Value = Tabelle3.Range("A" & x).Value
Tabelle6.Range("B" & y).Value = Tabelle3.Range("B" & x).Value
Tabelle6.Range("C" & y).Value = Tabelle3.Range("C" & x).Value
x = x + 1
y = y + 1
ActiveCell.Offset(1, 0).Activate
Loop
x = 1
Tabelle4.Activate
Range("A1").Activate
Do While Not ActiveCell.Value = ""
Tabelle6.Range("A" & y).Value = Tabelle4.Range("A" & x).Value
Tabelle6.Range("B" & y).Value = Tabelle4.Range("B" & x).Value
Tabelle6.Range("C" & y).Value = Tabelle4.Range("C" & x).Value
x = x + 1
y = y + 1
ActiveCell.Offset(1, 0).Activate
Loop
x = 1
Tabelle5.Activate
Range("A1").Activate
Do While Not ActiveCell.Value = ""
Tabelle6.Range("A" & y).Value = Tabelle5.Range("A" & x).Value
Tabelle6.Range("B" & y).Value = Tabelle5.Range("B" & x).Value
Tabelle6.Range("C" & y).Value = Tabelle5.Range("C" & x).Value
x = x + 1
y = y + 1
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Ich benutze 5 Do-Schleifen.
Das möchte ich eben umgehen.
Darum frage ich euch. Kann man ne Tabelle irgendwie als Array definieren?
Ich meinte das etwa so:
Tabelle(x).Actiavate
LG Sylnois
|