hab ne doofe Frage:
Also Ich hab in Zelle P einen Inhalt dann möchte ich, das mir das Makro den Inhalt überprüft, und anhand des Inhaltes in eine Zelle einen String setzt den ich vorgebe.
Bei meinem Lösungsweg ist das Problem, das das Makro komischerweise nicht am Ender der letzten beschrifteten Zelle aufhört sondern bis zur Zelle 60000 ca. das Makro ausführt. Hat mir einer einen Tipp?
Sub ListeAbarbeiten2()
'neue Spalte wird nach Q eingefügt und mit "Bereich" beschriftet
Columns("R:R").Select
Selection.Insert Shift:=xlToRight
Range("R58").Value = "Bereich"
'Fügt in Spalte R alle Bereiche ein, in dem es von der Abteilungsbezeichnung in Spalte Q das _
letzte Char löscht
With ActiveSheet.Range("R59:R" & Rows.Count)
.Formula = "=Left(Q59, 5)"
.Value = .Value
End With
Selection.AutoFilter Field:=16, Criteria1:="Muster, Mara"
With Application.Intersect(Columns("A:AA").SpecialCells(xlCellTypeConstants).EntireRow, Columns( _
"R"))
.SpecialCells(xlCellTypeVisible).Value = "DG/AC"
End With
ActiveSheet.ShowAllData
Selection.AutoFilter Field:=16, Criteria1:="Beispiel, Ben"
With Application.Intersect(Columns("A:AA").SpecialCells(xlCellTypeConstants).EntireRow, Columns( _
"R"))
.SpecialCells(xlCellTypeVisible).Value = "DG/AB"
End With
ActiveSheet.ShowAllData
Selection.AutoFilter Field:=16, Criteria1:="Finder, Felix"
With Application.Intersect(Columns("A:AA").SpecialCells(xlCellTypeConstants).EntireRow, Columns( _
"R"))
.SpecialCells(xlCellTypeVisible).Value = "DG/EC"
End With
Range("R1:R57").Value = ""
Selection.AutoFilter Field:=17, Criteria1:="DGS/EC"
With ActiveSheet.Range("R59:R" & Rows.Count)
.Formula = "=Left(L59, 2)"
.Value = .Value
End With
Selection.AutoFilter Field:=17, Criteria1:=""
With ActiveSheet.Range("R59:R" & Rows.Count)
.Formula = "=Left(L59, 2)"
.Value = .Value
End With
Range("R58").Value = "Bereich"
ActiveSheet.ShowAllData
End Sub
Vielen Dank für eure Hilfe