habe mal wieder 2 Fragen.
Auf mehreren Tabellenblättern befindet sich ein Steuerelement Commandbutton, über den ich „Modul1.Positionsnummern_Bindestriche“ aufrufe.
Dahinter steht folgender Code, der bei Klick auf den Button für das jeweilige Blatt ausgeführt werden soll.
Sub Positionsnummern_Bindestriche()
Dim intLZ As Integer ‘Ermittlung der letzten leeren Zeile
Range("A4:A65536").ClearContents
intLZ = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
Range("A3").Copy Range(Cells(4, 1), Cells(intLZ + 1, 1))
Range("B4:B65536").ClearContents
Range("B3").Copy Range(Cells(3, 2), Cells(intLZ, 2))
Range("H3:H65536").ClearContents
Range(Cells(3, 8), Cells(intLZ, 8)) = "."
End Sub
Folgende Fehlermeldung taucht auf.
Die Copy-Methode des Range-Objektes ist fehlerhaft.
Ein Button aus der Formularleiste und dann eine Makroverknüpfung würde das Problem lösen, aber was ist an meiner Methode falsch bzw. was muß ergänzt werden.
Vorher habe ich das über selektieren gemacht (aber der Code war dann sehr lang), da hat’s funktioniert.
Außerdem würde ich anstelle Range(“A3“) zu kopieren lieber die Formel, die dahinter steht, direkt kopieren,
also:
Range(Cells(4, 1), Cells(intLZ + 1, 1)) = "=WENN(C24<>"";ANZAHL2(INDIREKT("c3:c"&ZEILE()));"")"
Aber dann taucht beim kompilieren bei c3 auf: Erwartet: Anweisungsende.
Was mache ich da?
Vielen Dank für die Hilfe!
PS:
Das Problem mit dem Speichern habe ich inzwischen gelöst (siehe weiter unten).