Microsoft Excel

Herbers Excel/VBA-Archiv

@ suchen und entfernen



Excel-Version: 9.0 (Office 2000)

Betrifft: @ suchen und entfernen
von: TF
Geschrieben am: 07.06.2002 - 14:09:44

Hallo,

gestern hat mir Hans sehr geholfen (siehe Beitrag 06.06.02, 10:26 Uhr).
Frage: Wie kann ich erreichen, daß nur eine bestimmte Spalte nach diesem Zeichen durchsucht wird und nicht das ganze Tabellenblatt? Z.B Spalte C?

Sub WegMitDemDing()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange.Cells
rng.Value = WorksheetFunction.Substitute(rng.Value, "@", "")
Next rng
End Sub

Gruß

TF

  

Re: @ suchen und entfernen
von: Monika Weber
Geschrieben am: 07.06.2002 - 15:01:27

Hallo TF

Mit einer kleinen Ergänzung (Columns(3)):


Sub WegMitDemDing()
Dim rng As Range
 For Each rng In ActiveSheet.UsedRange.Columns(3).Cells
  rng.Value = WorksheetFunction.Substitute(rng.Value, "@", "")
 Next rng
End Sub

Ich hoffe, dass dir das weiterhilft.
Es liebs Grüessli aus der Schweiz
Monika


www.jumper.ch
*** Generell: Bitte kein Crossposting ***


  

Danke vielmals (oT)
von: TF
Geschrieben am: 07.06.2002 - 15:05:32


 

Beiträge aus den Excel-Beispielen zum Thema "@ suchen und entfernen"