Problem mit VBA-Code
08.01.2019 09:26:51
Robert
erstaml vielen Dank für diese tolle Plattform - über die Suche konnte ich mir schon viel Unterschützung selber holen, doch bei diesem Punkte komme ich nicht weiter:
Bei diesem Code erhalte ich immer einen Fehler beim .Range:
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("xyz")
.Range("K2", Cells(letztezeile, 11)).Clear
.Range("L2", Cells(letztezeile, 12)).Clear
.Range("M2", Cells(letztezeile, 13)).Clear
End With
Wenn ich es so mache, geht es:
Workbooks("1.xlsm").Sheets("xyz").Activate
With Range("K2", Cells(letztezeile, 11)).Clear
End With
With Range("L2", Cells(letztezeile, 12)).Clear
End With
With Range("M2", Cells(letztezeile, 13)).Clear
End With
Oder so geht es auch (nur möchte ich die letzte Zeile vorher auslesen und nicht wie unten fix festlegen):
With Sheets("xyz")
.Range("K2:K100").ClearContents
.Range("L2:L100").ClearContents
.Range("M2:M100").ClearContents
End With
Nur möchte ich weder mit activate oder select die Tabellenblätter aufrufen - zwar kann ich per Application.ScreenUpdating = False dieses "Hüpfen" ausblenden, doch frage ich noch der Lösung ohne Umwege?
Vielen vielen Dank und Gruß!
Robert