nur noch ein activate
03.02.2016 19:09:39
Thomas
es ist fast vollbracht. Ich habe nun fast alle select oder activate raus. Zum grössten Teil mit eurer hilfe natürlich. Aber eins werde ich nicht los.
Ich habe versucht alle tipps zu beachten und versucht es mit With zu lösen.
Ich habe vor alle Cells ein punkt gesetzt. Aber es funktioniert nicht mehr richtig. Die daten werden versetzt eingefügt. Anstatt von Spalte e werden Sie ab spalte I eingefügt und ausserden in der falschen zeile. Ich vermute mal das irgendwo noch ein punkt fehlt aber wo nur?
könnt ihr mir dabeihelfen?
Ach ja der Grund weshalb ich das Macro von Daniel verunstalte ist ich möchte es gern aus einem anderen Tabellenblatt starten.
Das oberste Macro ist das funktionierende und das untere das von mir verunstaltete Macro.
liebe grüsse thomas
Sub Monatüberhang_auflösen_serientermine()
Dim z1 As Long
Dim z2 As Long
Dim löschen As Range
'Sheets("für Kalender").Activate
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
z2 = Cells(Rows.Count, 5).End(xlUp).Row
For z1 = 2 To z2 - 1
With Cells(z1, 5)
'--- prüfen, ob eintrag erweiter werden muss
If Format(.Value, "yyyy-mm")
Sub Monatüberhang_auflösen_serientermine()
Dim z1 As Long
Dim z2 As Long
Dim löschen As Range
' Macro von daniel
'Sheets("für Kalender").Activate
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
With Sheets("für Kalender")
z2 = .Cells(Rows.Count, 5).End(xlUp).Row
For z1 = 2 To z2 - 1
With .Cells(z1, 5)
'--- prüfen, ob eintrag erweiter werden muss
If Format(.Value, "yyyy-mm")