AW: Speicher: Bitte präziser formulieren. oT
26.01.2010 21:46:17
JoWE
Hier steht die ANREDE: Hallo Speicher,
da fehlt die Angabe der Zellen, deren Werte woanders hin geschrieben werden sollen.
Es könnte sich zum Beispiel um $A$1, $D$3500, $L$99, $IV$7, $AC$800 und $L$1000 handeln.
Ebenso fehlt die präzise Angabe der Zielzellen, allein das Ziel Zeile 2 oder letzte freie Zeile ist recht ungenau.
Zu vermuten ist, dass die 'nächste freie Zeile' gemeint sein könnte. Es fehlt allerdings die Angabe, in welche Spalte/Spalten die Werte geschrieben werden sollen.
Auf diesen blauen Dunst hin biete ich diesen Codeschnipsel als Denkanstoß an:
Private Sub CommandButton1_Click()
Dim element(5) As Variant
Dim letzteZeile, zähler As Integer
Dim tb1, tb2 As Object
Set tb1 = Sheets(1)
Set tb2 = Sheets(2)
'Inhalt Deiner 5 Zellen, ich nehme einfach mal ganz
'präzise den Bereich A2 bis E2, in Variable übernehmen
element(1) = [A2]
element(2) = [B2]
element(3) = [C2]
element(4) = [D2]
element(5) = [E2]
'Ich mach die 'letzte freie Zeile' oder doch die
'erste freie Zeile (??) der Tabelle2 mal an der nächsten freien Zelle der Spalte A fest
letzteZeile = tb2.[a65536].End(xlUp).Row+1
'jetzt mit einer Schleife alle 5 Elmente in die
'Spalten A, B, C, D und E der nächsten freien Zeile schreiben
For zähler = 1 To 5
tb2.Cells(letzteZeile, zähler) = element(zähler)
Next
End Sub
Gruß
Jochen