|
Hallo Allerseits,
Also mein Problem:
Ich hab eine Kleine Tabelle, die nur aus einer Zeile mit drei Zellen besteht. Es gibt also A1, B1, C1 als Werte. Mein Programm soll, den Inhalt und die Hintergrundfarbe von A1 nehmen, und diese in E1 Schreiben. Dannach B1 in F1 schreiben, und C1 in G1 schreiben. Jedes mal den Inhalt und Hintergrundfarbe in die jewalige Zelle kopieren. D1 ist leer und farblos.
Deswegen hab ich dieses Programm siehe unten geschrieben. Es soll 4 Variablen definieren, wobei x die Startposition ist, und y die Position wo der Inhalt der Zelle kopiert werden soll. Für den Kopiervorgang wollte ich eine Schleife verwenden. Diese Soll x nehmen, den Inhalt auf y schreiben, und dann x und y um eine Spalte nach rechts verschieben. Und die Schleife soll Beendet werden, wenn die Zelle farblos ist.
Irgendwie Klappt das nicht ganz, hab erst grad angefangen VBA zu lernen, wer könnte evt helfen und wüsste wie es geht.
Grüße
David Gladys
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub test()
Dim x, y, R, R1 As Range
Do
Set x = Range("A1")
Set y = Range("E1")
Set R = Sheets("test").Range("x")
Set R1 = Sheets("test").Range("y")
R.copy
R1.PasteSpecial xlPasteValues
R1.PasteSpecial xlPasteFormats
If Selection.Interior.ColorIndex = -4142 Then
Exit Do
End If
Set x = x.Offset(0, 1)
Set y = y.Offset(0, 1)
Loop
End Sub
|