|
Guten Tag,
meine VBA-Kentnisse sind schon ein wenig eingestaubt und ich komme leider nicht weiter. Das Macro soll noch komplexer werden, ich scheitere aber schon an der "simpelsten" Aufgabe.
Es sollen Werte aus einer Zeile einer Spalte ausgelesen werden und in eine neue Zeile einer neuen Spalte kopiert werden, solange bis eine leere Zeile angetroffen wird (perspektivisch soll dieser Wert in ein anderes Tabellenblatt kopiert, umgerechnet, und das Ergebnis neben die vorherige Zahl geschrieben werden). Folgendes habe ich bisher:
Sub Makro1()
'
' Makro1 Makro
'
Range("B3").Select
Do Until IsEmpty(ActiveCell)
ActiveCell.Copy
Range("H3").Insert
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Ich bekomme die Werte kopiert und in die andere Zeile geschrieben, allerdings werden diese invers dargestellt:
| Werte |
kopierte Werte |
| 0,091 |
0,104 |
| 0,095 |
0,101 |
| 0,098 |
0,098 |
| 0,101 |
0,095 |
| 0,104 |
0,091 |
Für Hilfe bedanke ich mich im vorab.
Beste Grüße
Lennart
|