Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jede Zeile der Spalte durchgehen und ändern

Jede Zeile der Spalte durchgehen und ändern
29.11.2017 10:56:37
Benjamin
Hallo zusammen,
ich habe folgenden Code, um Werte in einer Spalte zu ändern.
wert = "Auto-Haus"
wert_neu = Right(wert, Len(wert) - InStrRev(wert, "\", , vbTextCompare))
Ausgabe: Haus
Mit diesem Code entferne eine Teil des Strings bis zum Bindestrich. Das klappt alles ganz gut. Ich möchte das aber jetzt für meine Tabelle anwenden. Die Spalte heißt "Code" und befindet sich in der Zelle ("J1"). Das heißt ich möchte jede alle Werte dieser Spalte durchgehen und mit dem Code oben bearbeiten. Das geht wahrscheinlich mit einer For-Schleife, nur habe ich es nicht hinbekommen. Ich freue mich sehr, wenn mir jemand behilflich sein kann.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jede Zeile der Spalte durchgehen und ändern
29.11.2017 11:11:07
Bernd
Hi,
meinst Du so:
Sub ZEntfernen()
Dim start As Long, letzte As Long, lngZ As Long, strW As String, rngD As Range
'   Application.ScreenUpdating = False          ' nach dem Test aktivieren
start = 2
letzte = ActiveSheet.Range("J65536").End(xlUp).Row
For lngZ = letzte To start Step -1
strW = Cells(lngZ, 10).Value
Cells(lngZ, 10) = Right(strW, InStr(1, strW, "-", vbTextCompare) - 1)
Next
Application.ScreenUpdating = True
End Sub

MfG Bernd
AW: Jede Zeile der Spalte durchgehen und ändern
29.11.2017 14:12:09
Benjamin
Vorerst herzlichen Dank für die Hilfe. Hut ab und Daumen hoch für diese ehrenamtliche Unterstützung! Der Code funktioniert super!
Ich hätte da ein paar Fragen zum Code:
1) Warum hast du extra die Variable "start" gesetzt, obwohl man auch einfach bei der For-Schleife eine 2 schreiben kann?
2) Warum beginnt diese Zahl bei 2?
3) die -1 ist ja deswegen negativ, weil die Schleife rückwärts durchgeht. Liege ich da richtig?
4) Warum hast du bei Range die Zahl auf 65536 gesetzt? Kann man das nicht so machen, dass man einfach die Zellen berücksichtigt, die Werte enthalten?
Keiner dieser Fragen ist auf keinen Fall Kritik oder sonstiges. Dienen nur zu meinem besseren Verständnis. Falls das zu viel wird mit den Fragen, verstehe ich das auch.
Danke sehr!!
Anzeige
AW: Jede Zeile der Spalte durchgehen und ändern
29.11.2017 14:43:13
Daniel
HI
wenn du den Text vor dem Bindestrich entfernen willst, würde das für die ganze Spalte auch mit der Menüfunktion ERSETZEN gehen, in dem du "*-" durch nichts ersetzt, der Haken bei "gesamten Zellinhalt vergleichen" darf nicht gesetzt sein.
als VBA-Code dann: 
Range("J:J").Replace what:="-*", Replacement:="", lookat:=xlpart

deine Schleife würde so aussehen:
dim Zelle as range
dim Wert as string
dim WertNeu as string
for each Zelle in Columns(10).SpecialCells(xlcelltypeconstants, 3)
wert = Zelle.Value
WertNeu = Mid(wert, InstrRev(wert, "-") + 1)
Zelle.Value = WertNeu
Next
Gruß Daniel
Anzeige
AW: Jede Zeile der Spalte durchgehen und ändern
04.12.2017 11:31:41
Benjamin
Vielen Dank für deine Hilfe Daniel. Funktioniert super! Großes Dankeschön an euch beide.
Hätte da eine Frage:
Ar = Cells(1).CurrentRegion
ReDim Br(UBound(Ar), UBound(Ar, 2))
For z = 1 To UBound(Ar)
Br(z, 1) = Ar(z, 1)
Br(z, 2) = Ar(z, 3)
Br(z, 3) = Ar(z, 13)
Br(z, 4) = Ar(z, 4)
Br(z, 5) = Ar(z, 5)
Br(z, 6) = Ar(z, 6)
Br(z, 7) = Ar(z, 7)
Br(z, 8) = Ar(z, 8)
Br(z, 9) = Ar(z, 2)
Br(z, 10) = Ar(z, 9)
Br(z, 11) = Ar(z, 14)
Br(z, 12) = Ar(z, 15)
Br(z, 13) = Ar(z, 10)
Br(z, 14) = Ar(z, 11)
Br(z, 15) = Ar(z, 12)
Next z
Cells(1).Resize(UBound(Br) + 1, UBound(Br, 2) + 1) = Br
Mit diesem Code hier vertausche ich die Reihenfolge der einzelnen Spalten. Funktioniert auch ganz gut. Aber am Ende platziert es die neuen Werte ab der Zelle(2, 2). Ich möchte aber, dass es bei Zelle(1, 1) beginnt. Weil sonst habe ich eine eine freie Zelle link und oben. Hat da jemand ne Lösung dafür? Irgendwas muss ich wohl an der letzten Zeile ändern. Habs nicht hinbekommen..
Anzeige

218 Forumthreads zu ähnlichen Themen

Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Anzeige
Filter - Text in Spalten
LD

Hallo,
habe hier eine Adressliste aus welcher ich nur die email adr. rausziehen will.
Habe schon einen Filter angewendet um alle Zeilen mit @ anzuzeigen, allerdings
steht vor den adr. "email an" und ich bekomme das nicht weg. Wenn ich Text
in Spalten mache, sind alle anderen Zei...
13.03.2009 13:50:22
Thread-ID: 1059860
6 Beiträge
Text in Spalten Makro
Steffen

Guten Morgen!
folgendes problem: in Spalte E stehen datumswerte die aus einer anderen datei kopiert wurden,diese datumswerte werden mit einer bedingten formatierung belegt .da diese nach dem kopieren nicht als datumswert in der spalte stehn ,hab ich ein text in spalten makro aufgezeichnet s...
31.03.2009 12:08:50
Thread-ID: 1065568
3 Beiträge
Text in Spalten
Dieter

Hallo zusammen,
ich habe mit dem Recorder ein Makro aufgezeichnet,
um Daten mit der Funktion "Text in Spalten zu trennen.
Das Makro sieht so aus....
Sub DatenSpalten() Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, Con...
11.04.2009 14:30:27
Thread-ID: 1068301
6 Beiträge
Text in Spalten auswerten
Moritz

Hallo,
ich habe eine Textdatei, die ich in Excel kopiere und dort in 3 Spalten aufteile. Die einzelnen Seiten sind nach Gebiet dann Produktart und dann Produkt aufgebaut.
Beispiel
Gebiet 1
Produktart 1
Produkt 1
Produkt 2
Produktart 1 Summe
Produktart 2<...
04.08.2009 22:57:14
Thread-ID: 1093588
29 Beiträge
Text in Spalten
Chris1984

Hallo zusammen
ich habe ein kleines Problem. IN meinen Tabellenplatt habe ich von der Spalte a bis zur Spalte gs Daten stehen die ich mit Text in spalten bearbeiten möchte. Nur ich will das ganze nicht mit der hand machen sonder über ein Makro. Momentan habe ich es mit dem Recorder au...
28.08.2009 09:47:33
Thread-ID: 1099121
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
2
6
2
5
2
5
28
6
1
5
5
5
8
7
1
3
17
6
2
4
3
2
18