Office: Frage zu Makro im Butten

Hallo

also ich habe ein Makro aufgenommen und wenn ich es klicke geht es auch.

jetzt habe ich einen button gemacht und die formel reingeschrieben vom makro
aber da geht es nicht laufzeitfehler 1004


Private Sub CommandButton1_Click()
'
' copywochentag Makro
' Makro am 14.09.2012 von abmnet aufgezeichnet
'

'
Sheets("Wochenplanung").Select
Range("B5:B42").Select
ActiveWindow.SmallScroll Down:=3
Selection.Copy
Sheets("Anwesenheitsliste+KFZ").Select
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

bitte um hilfe

 

Hi,

versuche es mal so (ungetestet):

Code:

Private Sub CommandButton1_Click()
   Sheets("Wochenplanung").Range("B5:B42").Copy
   Sheets("Anwesenheitsliste+KFZ").Range("E8").PasteSpecial _
      Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
End Sub

Bis später,
Karin

 

Danke Karin

so geht es ... wie geht das jetzt fortlaufend mit dem einfügen

 

Hi,

was meinst du mit: "wie geht das jetzt fortlaufend mit dem einfügen"?

Bis später,
Karin

 

Hallo Karin,

fortlaufend Kopierend ab zelle Anwesenheitsliste+KFZ").Range("E8

 

Hi,

sorry, aus deinem Beitrag werde ich leider nicht schlau.

Bis später,
Karin

 

Also ab e8 werden die daten eingefügt aber wenn jetzt in e8 schon was ist soll er es in e9 kopieren

bei dem code:

Private Sub CommandButton1_Click()
Sheets("Wochenplanung").Range("B5:B42").Copy
Sheets("Anwesenheitsliste+KFZ").Range("E8").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

Hi,

ungetestet:

Code:

Private Sub CommandButton1_Click()
   Dim lngErste As Long
   Sheets("Wochenplanung").Range("B5:B42").Copy
   With Sheets("Anwesenheitsliste+KFZ")
      lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 5)), .Cells(.Rows.Count, 5).End(xlUp).Row, .Rows.Count) + 1
      If lngErste < 8 Then lngErste = 8
      .Cells(lngErste, 5).PasteSpecial _
         Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
   End If
End Sub

Bis später,
Karin

 

Hallo Karin,

test nicht ok .... Fehler beim Kompilieren end if ohne if block meldung kommt da?

 

Hi,

anstelle End If muss End With stehen.


Bis später,
Karin

 

danke jetzt geht es ;)