Tabellen über Makro füllen und fortschreiben



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Tabellen über Makro füllen und fortschreiben
von: Dirk
Geschrieben am: 18.06.2002 - 12:40:58

Hallo Zusammen,

folgende Situation:
In diesen Bsp gehe ich davon aus das die Daten (die später in die Tabelle2 übertragen werden sollen) in der Tabelle1
in der Zelle A1,B1,C1 und D1 stehen.
Bei Verwendung des Codes werden die Zellen der Tabelle1 (a1,b1,c1 und d1) in die Tabelle 2 in die Zelle 9 geschrieben
sollte die Zelle A9 bereits belegt sein wird die nächste freie Zeile benutzt.

Das füllen der Tab2 erfolgt über die Verknüpfung Schaltfläche-Makro.

Meine Frage:
Da ich bei diesem Beispiel nur 4 Feldinhalte (A1,B1,C1,D1) über die Betätigung der Schaltfläche, in
die Tab2 schreiben kann, ich aber ca. 30 Feldinhalte benötige, meine Frage:
Wer kann die Syntax so anpassen, dass ich mehr als nur 4 Werte wegschreiben kann?

Sub Datenuebertrag()
Dim laR As Long
Dim i As Byte
laR = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
If laR < 9 Then laR = 9
For i = 1 To 4 Step 1
Worksheets("Tabelle2").Cells(laR + 1, i).Value = Cells(1, i).Value
Next i
End Sub

Vielen dank im voraus

PS: Danke Silvio für den Lösungsansatz


Gruß
Dirk


nach oben   nach unten

Re: Tabellen über Makro füllen und fortschreiben
von: Armin
Geschrieben am: 18.06.2002 - 12:55:57


Sub Datenuebertrag()
Dim laR As Long
Dim i As Byte
laR = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
If laR < 9 Then laR = 9
For i = 1 To 10 Step 1
Worksheets("Tabelle2").Cells(laR + 1, i).Value = Cells(1, i).Value
Next i
End Sub

Ich empfehle Dir Excel-VBA Literatur!


nach oben   nach unten

Re: Tabellen über Makro füllen und fortschreiben
von: Dirk
Geschrieben am: 20.06.2002 - 17:45:47

Hallo Armin,

hältst Du das Problem für wirklich so kompliziert?

Gruß
Dirk


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabellen über Makro füllen und fortschreiben"