Thema Datum  Von Nutzer Rating
Antwort
Rot Tabelle als Array
 01.04.2010 12:56:01 Sylnois
NotSolved
18.08.2010 20:22:35 Severus
NotSolved

Ansicht des Beitrags:
Von:
Sylnois		 Datum:
01.04.2010 12:56:01		 Views:
1547		 Rating:
     
Antwort:
  Ja
Thema:
Tabelle als Array
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Tabelle als Array
 01.04.2010 12:56:01 Sylnois
NotSolved
18.08.2010 20:22:35 Severus
NotSolved