AW: Sortieren u. leere zellen aussortieren
23.02.2008 21:37:50
fcs
Hallo Tekiela,
passe deine Prozedur wie folgt an.
Die vielen Scrollanweisungen, die der Recorder eingefügt hat, kannst du löschen. Sie sind für die Funktion dieses Makros nicht relevant.
Gruß
Franz
Sub BereinigenTabelle()
'Private Sub CommandButton1_Click()
' Bereinigen Makro
' Makro am 19.02.2008 von Tekiela aufgezeichnet
Range("A1:AZ1100").Select
'Werte ersezen
Selection.Replace What:="IAD", Replacement:="IAT", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="IAF*", Replacement:="IAF", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="IAF", Replacement:="LG", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="St*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="D*", Replacement:="D", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="*D", Replacement:="D", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="D", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="*LG", Replacement:="LG", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Leerzellen im Bereich selektieren
Selection.SpecialCells(xlCellTypeBlanks).Select
'Leerzellen löschen und nach links verschieben
Selection.Delete shift:=xlToLeft
Range("A1:A1100").Select
'Zeilen mit Leerzellen in Spalte A selektieren
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Select
'Leerzeilen löschen und nach oben verschieben
Selection.Delete shift:=xlShiftUp
Range("A1").Select
End Sub