Microsoft Excel

Herbers Excel/VBA-Archiv

Spalte prüfen und Daten löschen | Herbers Excel-Forum


Betrifft: Spalte prüfen und Daten löschen von: walter mb
Geschrieben am: 21.01.2012 14:57:31

Guten Tag allerseits,
ich habe eine Spalte, AY, da sollen die Zellen überprüft werden.
Und zwar stehen verschiedene Texte und Zahlen drin.
Es kann aber sein das in Zellen folgende Werte drin stehen nach die
gesucht werden sollen.
LP010112, es soll immer nach "LP" gesucht werden, die Daten sollen drin bleiben
alle anderen Texte sollen gelöscht werden.
Wenn also:
LP030112
LP030112
ENDMWer lkih.aeql.rafw.000
LP030112
LP030112
im letzten Schritt sollen die Buchstaben LP gelöscht werden und aus den nächsten
6 Ziffern soll das Datumsformat hinterlegt werden.
LP030112 =030112 03.01.12

ich hoffe ich habe es Richtig erklärt,
mfg Walter

  

Betrifft: AW: Spalte prüfen und Daten löschen von: Hajo_Zi
Geschrieben am: 21.01.2012 15:04:50

Walter Walter,

für die Auswahl benutze Autofilter enthält nicht LP, und lösche alle sichtbaren.

GrußformelHomepage


  

Betrifft: brauch das als Makro von: walter mb
Geschrieben am: 21.01.2012 15:26:51




  

Betrifft: AW: Spalte prüfen und Daten löschen von: Josef Ehrensberger
Geschrieben am: 21.01.2012 15:11:10


Hallo Walter,

ungetestet.

Sub deleteValues()
  Dim rng As Range, rngDel As Range
  
  With ActiveSheet
    For Each rng In .Range("AY2:AY" & .Cells(.Rows.Count, 51).End(xlUp).Row)
      If rng Like "LP*" Then
        rng = CDate(DateSerial(Mid(rng, 7, 2) * 1, Mid(rng, 5, 2) * 1, Mid(rng, 3, 2) * 1))
      Else
        If rngDel Is Nothing Then
          Set rngDel = rng
        Else
          Set rngDel = Union(rngDel, rng)
        End If
      End If
    Next
    .Range("AY2:AY" & .Cells(.Rows.Count, 51).End(xlUp).Row).NumberFormat = "dd.mm.yyyy"
  End With
  
  If Not rngDel Is Nothing Then rngDel.ClearContents
  
  Set rng = Nothing
  Set rngDel = Nothing
End Sub







« Gruß Sepp »



  

Betrifft: Geil das funktioniert !!!!! -) von: walter mb
Geschrieben am: 21.01.2012 15:28:13

Hallo Josef,
einwandfrei !!!
Tausend Dank !

Hallo Hajo,
danke auch für den Tip !!!

mfg walter mb


Beiträge aus den Excel-Beispielen zum Thema "Spalte prüfen und Daten löschen"