Hallo zusammen,
folgendes Programm kopiert den Inhalt einiger Zellen auf ein anderes Blatt was auch funktioniert.
Sheets("Daten").Select
Range("A100:AH100").Select
Selection.Copy
Sheets("SÜD").Select
GesellschaftZelle.Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
In einigen Zellen befinden sich Formel hier sollen nur die Ergebniste (Werte)
kopiert werde. Ich habe die Funktion schonmal mit dem Makrorekorder aufgezeichnet. Bei der verbindung beider Funktionen gab es aber eine Fehlermeldung.
Kann mir jemand weiterhelfen?