ich habe folgende Funkion:
Function andi()
Dim A_Z As Long
Dim A_S As Long
A_Z = ActiveCell.Row
A_S = ActiveCell.Column
Worksheets("Gesamt").Cells(A_Z, A_S).Copy
With Worksheets("Übersicht").Cells(A_Z, A_S)
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
Exit Function
End Function
Diese Funktion soll mir den Inhalt incl. Formatierung von Blatt "Gesamt" auf Blatt "Übersicht" kopieren.
Leider ist nach der Eingabe der Zellinhalt gleich 0.
Wenn ich die Funktion jedoch vom VBA-Editor aus starte, kopiert er die aktive Zelle 1:1 ohne Probleme.
Kann mir jemand bitte Helfen?
Vielen Dank.
mfg Christian