Problem Kopier-Makro
16.07.2004 20:01:58
Rolf
Ein kleines Problem:
1. Mit diesem Makro sollen alle markierten Zeilen in Tabelle1 kopiert, gelöscht und in Tabelle2 eingefügt werden.
Löschen klappt für alle markierten Zeilen.
Beim einfügen in Tabelle2 wird nur die erste Zeile eingefügt.
2. Ich möchte vorher die Anzahl der Zeilen (hier 5) festlegen.
An welcher Stelle?
Tabelle1
1 Vorname 1 Name 1 Adresse 1
2 Vorname 2 Name 2 Adresse 2
3 Vorname 3 Name 3 Adresse 3
4
5
Ergebnis:
Tabelle 2
1 Vorname 1 Name 1 Adresse 1
2
3
4
5
Sub kopieren()
Dim Loletzte As Long
With Sheets("Tabelle2")
ActiveSheet.Unprotect
If Range("B130") = "" Then
Loletzte = .Range("b130").End(xlUp).Row
ActiveSheet.Unprotect
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy Destination:=.Cells(Loletzte + 1, 2)
Selection.ClearContents
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).ClearContents
ActiveSheet.Protect
Else
MsgBox "keine Zelle mehr frei"
End If
End With
End Sub
Herzliche Grüsse und Wünsche auf besseres Wetter
Rolf K.