Hallo
ich suche ein Makro welches mir ermöglicht unter Excel alle Zellen nach einem Wert zu durchsuchen und bei einem Treffer durch den Wert der vorhergehenden Zelle zu ersetzen. Das Makro muß automatisch die gesamte Arbeitsmappe durchsuchen, da der Umfang der Daten sehr groß ist. (24*65000)
Â
Kann mir jemand helfen???
Â
Vielen Dank
T-Rex
MichBau
„Excel Makro“
Das sollte Dir helfen:
Dim objRange As Excel.Range
Dim objTab As Excel.Worksheet
Dim objTreffer As Excel.Range
Dim strSuchText As String
' Â Das suche ich
strSuchText = "oma"
'  Das Arbeitsblatt auswählen
Set objTab = ActiveSheet
'  Wähle den Bereich, der bearbeitet werden soll
Set objRange = objTab.Range(objTab.Cells(1, 1), objTab.Cells(50, 8))
Do
  '  Text suchen
  Set objTreffer = objRange.Find(What:=strSuchText, _
                   LookIn:=XlFindLookIn.xlValues, _
                   MatchCase:=False)
  '  Wurde der Text gefunden?
  If Not (objTreffer Is Nothing) Then
    '  Ja, gegen den Text, der darüber steht, austauschen
    objTreffer.Value = objRange.Cells(objTreffer.Row - 1, _
                     objTreffer.Column).Value
    '  Weitersuchen
    Set objTreffer = objRange.FindNext
  End If
Loop Until (objTreffer Is Nothing)
'  Aufräumen
Set objRange = Nothing
Set objTab = Nothing
Set objTreffer = Nothing
