Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte auslesen und in bestimmten Zellen entfernen

Werte auslesen und in bestimmten Zellen entfernen
06.08.2019 11:57:34
Stefan
Hallo zusammen,
ich würde gerne einige Wörter aus den Zellen in einem bestimmten Bereich entfernen. Dazu müssten die zu entfernenden Wörter zuvor aus einer Excel-Tabelle ausgelesen werden.
Mein bisheriger Versuch sieht wie folgt aus, der leider noch nicht funktioniert.
Sub Test()
Dim strArr As Variant
Dim b As Byte
strArr = Worksheets("Tabelle1").Range("C35:C38")
For b = 0 To UBound(strArr)
Range("C2:C999999").Replace strArr(b), ""
Next b
End Sub
vielen Dank im Voraus für eure Hilfe ;)

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte auslesen und in bestimmten Zellen entfernen
06.08.2019 12:37:07
Rudi
Hallo,
da du das Array aus einem Bereich füllst, ist es 2-dimensional.
Range("C2:C999999").Replace what:=strARR(b, 1), replacement:="", lookat:=xlPart
Gruß
Rudi
Und ....
06.08.2019 12:38:42
{Boris}
Hi,
...die Schleife nicht bei 0 sondern bei 1 beginnen.
VG, Boris
natürlich ....
06.08.2019 12:45:25
Rudi
das hätte er aber gemerkt. ;-)
AW: Werte auslesen und in bestimmten Zellen entfernen
06.08.2019 12:44:49
Werner
Hallo Stefan,
oder du transponierst die Werte beim Einlesen.
Sub Test()
Dim strArr As Variant
Dim b As Long
strArr = WorksheetFunction.Transpose(Worksheets("Tabelle1").Range("C35:C38"))
For b = LBound(strArr) To UBound(strArr)
Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row).Replace strArr(b), ""
Next b
End Sub
Gruß Werner
Anzeige
nichts desto trotz....
06.08.2019 12:47:13
Rudi
… sollte er den Parameter LookAt unbedingt mitgeben.
Gruß
Rudi

368 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige