Makro: Selektieren, in Tabellenblatt kopieren
29.06.2005 12:30:13
Thomas
ich wende mich mit einem Problem an Euch. Ein umfangreiches Tabellenblatt will bearbeitet werde. Dazu habe ich mr ein Makro geschrieben.
Wenn im Tabellenblatt "Herstellungskosten" in der Spalte C in einer Zeile der Eintrag "CZK" steht, möchte ich aus dieser Zeile die Zellen der Spalten A, B und D in das Tabellenblatt "Tabelle1" kopieren. Das Makro läuft ohne Fehlermeldung durch, nur passieren tut nichts.
Makromäßig bin ich ein absolutes Greenhorn. Könnte vielleicht von Euch jemand draufschauen und mir sagen, woran es hapert?
Ich danke herzlich.
Grüße
Thomas
Sub makro()
Dim i As Long
Dim z As Long
z = 15
Sheets("Herstellungskosten").Select
For i = 1 To Range("C65536").End(xlUp).Row
If Cells(i, 3).Value = CZK Then
Cells(i, 1) = a 'hier steht Text
Cells(i, 2) = b 'hier steht eine Währung
Cells(i, 4) = c 'hier steht eine Zahl
Sheets("Tabelle1").Select
Cells(z, 2) = a
Cells(z, 3) = b
Cells(z, 5) = c
z = z + 1
End If
Next i
End Sub