Microsoft Excel

Herbers Excel/VBA-Archiv

Eingrenzen der Spalten | Herbers Excel-Forum


Betrifft: Eingrenzen der Spalten von: Ronald
Geschrieben am: 07.12.2009 10:29:44

Hallo Zäme

Folgenden Script habe ich zum Ersetzten von Werten erhalten. Er funktioniert auch einwandfrei.

   Dim rngX As Range

   With Sheets(AktTabelle)
      Set rngX = .Range("a1").Find("a")
      Cells.Replace What:=.Range("C3"), Replacement:=.Range("C4"), _
         LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
         SearchFormat:=False, ReplaceFormat:=False
   End With
Wie kann ich das Ersetzen von Werten auf Spalte A und B eingrenzen?

Danke für einen Tipp

Gruss
Ron

  

Betrifft: AW: Eingrenzen der Spalten von: Chris
Geschrieben am: 07.12.2009 10:36:10

Dim rngX As Range

With Sheets(AktTabelle)
Set rngX = .Range("a1").Find("a")
Range("A:B").Replace What:=.Range("C3"), Replacement:=.Range("C4"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End With


  

Betrifft: AW: Eingrenzen der Spalten von: Ronald
Geschrieben am: 07.12.2009 10:56:17

Hallo Chris

Danke für die schnelle Lösung. Funktioniert wie gewünscht.

Merci und Gruss
Ron


Beiträge aus den Excel-Beispielen zum Thema "Eingrenzen der Spalten"