Worksheet Activate und paste
25.05.2020 13:11:00
Kerstin
Ich bin frustriert!!!! Bitte um Hilfe!!!!
Ich habe folgenden Code im Worksheet("Bucherfassung") stehen:
Sub Worksheet_Activate()
Set rng = Sheets("Bücherliste").Range("AF4:AF200")
If WorksheetFunction.CountA(rng) = 197 Then
Sheets("Bucherfassung").Range("B40") = "Alle Nummern sind gedruckt"
Sheets("Bucherfassung").Activate
Range("B40").Activate 'Hier steht sonst die noch zu druckende Buchnummer drin
With Selection.Font
.Name = "Arial"
.Size = 25
End With
Selection.Font.Bold = True
Sheets("Bucherfassung").Activate
Range("G40").Select
Exit Sub
Else
Sheets("Bucherfassung").Range("B40") = Sheets("Bücherliste").Range("AF200").End(xlUp). _
Offset(-1, -31)
Sheets("Bucherfassung").Activate
Range("B40").Activate
With Selection.Font
.Name = "Arial"
.Size = 48
End With
Selection.Font.Bold = True
Sheets("Bucherfassung").Range("G40").Activate
Exit Sub
End If
Set rng = Sheets("Bücherliste").Range("A4:AX99999999")
End Sub
Damit soll mir IMMER die nächste zu druckende Nummer angezeigt werden.Klappt!
Dann habe ich folgenden Code, der nur klappt, wenn o.g. Code nicht eingetragen ist:
Sub naechste_Buchkarte_drucken()
Sheets("Bücherliste").Activate
ActiveCell.EntireRow.Copy
Sheets("Bucherfassung").Activate
Range("A4").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
Wenn beide Codes eingetragen sind, meckert der Debugger an der Stelle:
Range("A4").PasteSpecial Paste:=xlValues
(In andere Zellen auf dem Blatt("Bucherfassung") kann ich auch nix kopieren)
Ohne Worksheet-Code: kein Problem!
Also, die Frage an euch: WAS MUSS ICH ÄNDERN? WARUM GEHT ES NICHT?
Evtl. mit Formel?
Danke schon mal für eure Hilfe!
Liebe Grüße
Kerstin
P.S. Ich arbeite mit einem Mac, hoffe, daß es nicht schon wieder daran liegt :(