unzulässiger oder nicht ausreichend definierter Ve
01.09.2003 15:46:07
Rolf
Nach Selection.Copy:
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy Destination:=.Cells(Loletzte + 1, 2)
Bei :=.Cells(.....)
erscheint unzulässiger oder nicht ausreichend definierter Verweis
Gruss Rolf
Sub Mitglieder_alle_Kanal_neu_kopieren()
' Mitglieder_alle_Kanal_neu_kopieren Makro
' Makro am 31.08.2003 von Rolf aufgezeichnet
Selection.Copy
'Hier kommt der Fehler
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy
'An dieser Stelle möchte nur die Zelle(C3) markieren, weil dort der Name steht
'die gesamte Adresse steht aber in Zeile(B3:H3)
'dieser Teil funktioniert
With Sheets("Kanalscheine neu")
Dim Loletzte As Long
If Range("B145") = "" Then
Loletzte = .Range("B23").End(xlUp).Row
Selection.Copy Destination:=.Cells(Loletzte + 1, 2)
Else
MsgBox "keine Zelle mehr frei"
End If
End With
Sheets("Kanalscheine neu").Select
End Sub