AW: Zellinhalt mit Makros kopieren
16.02.2004 09:33:14
slouch
ne gute ideee :)
also hier das makro:
*****************************************************************************************
Private Sub CommandButton2_Click()
Dim startzeileQuelle As Integer
Dim endZeileQuelle As Integer
Dim zeileZiel As Integer
' Initialisierung mit Startwert
zeileZiel = 34
Worksheets("Kommentare").Select
'MsgBox "Worksheet selektiert"
startzeileQuelle = 4
endZeileQuelle = Cells(Rows.Count, 3).End(xlUp).Rows.Row
'MsgBox "Letzte Zelle:" & endZeileQuelle
For i = startzeileQuelle To endZeileQuelle
'MsgBox "Zeile" & i & " vor if"
'MsgBox "Zelle(1," & i & "): " & Cells(i, 1).Value
If Cells(i, 3).Value = "Korrektur vornehmen" Then
'Kommentare markieren und kopieren
Cells(i, 2).Select
Selection.Copy
'Sheet wechseln
Worksheets("Zusammenfassung").Select
ActiveSheet.Cells(zeileZiel, 1).Select
'Kommentar einfügen
ActiveSheet.Paste
Worksheets("Kommentare").Select
' Zeile im Ziel inkrementieren
zeileZiel = zeileZiel + 1
ElseIf Cells(i, 3).Value = "Korrektur prüfen" Then
'Kommentare markieren und kopieren
Cells(i, 2).Select
Selection.Copy
'Sheet wechseln
Worksheets("Zusammenfassung").Select
ActiveSheet.Cells(zeileZiel, 5).Select
'Kommentar einfügen
ActiveSheet.Paste
Worksheets("Kommentare").Select
' Zeile im Ziel inkrementieren
zeileZiel = zeileZiel + 1
End If
Next
End Sub
*****************************************************************************************
gruss slouch