Makro spinnt - warum?
20.07.2017 10:53:08
MB12
dieses Makro bearbeitet einen Access-Export und funktioniert seit 16 Wochen ohne Probleme.
Plötzlich springt es nach dem kopieren des Blatts Tabelle1 zurück auf
Sub bearbeiten - und dann isses aus...
Ich hatte schon den Verdacht, dass jemand daran herumgeschraubt hat und habe deshalb aus einer alten Version das Makro einkopiert - keine Änderung.
Könnt ihr das Problem ohne Beispieldatei erkennen? Treibt mich zum Wahnsinn.
Danke schön und Gruß
Margarete
Option Explicit
Sub bearbeiten()
Dim Teilstring As String
Dim i As Long
Dim zeilen As Variant
Range("H2:J200").NumberFormat = "0.00"
Range("K2:K" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaLocal = Range("K2").FormulaLocal
Range("L2:L" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaLocal = Range("L2").FormulaLocal
Range("L2").Copy
Range("L3:L" & Cells(Rows.Count, 1).End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Tabelle1").Copy After:=Sheets(1) ' ##### Springt ab hier zurück
ActiveSheet.Name = "Haupt"
With Worksheets("Haupt")
.Range("A2:L200").Sort Key1:=.Range("D2"), Order1:=xlAscending, Header:=xlNo
End With
Range("A1:L1").Select
ActiveSheet.Range("$A$1:$L200").AutoFilter Field:=4, Criteria1:="=Ja", Operator:=xlOr
'For Each zeilen In Worksheets("Haupt").Rows
' If zeilen.EntireRow.Hidden = True Then
' zeilen.Delete Shift:=xlUp
' End If
' Next
For i = 200 To 2 Step -1
If Cells(i, 4) "Ja" Then Rows(i).Delete
Next i
With Worksheets("Haupt")
If .FilterMode Then
.ShowAllData
[B2].Select
End If
.Range("A2:L200").Sort Key1:=.Range("L2"), Order1:=xlAscending, Header:=xlNo
.Range("H2:J200").NumberFormat = "0.00"
End With
With Worksheets("Auswertungen")
.Range("C29:F29").Value = Worksheets("Haupt").Range("M1:P1").Value
End With
End Sub