Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
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
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

erste 5 Zeichen im Range löschen

erste 5 Zeichen im Range löschen
06.12.2022 09:41:44
Chris
Hallo Forum,
ich möchte in einem variablen Range von A1:A... in jeder Zelle die ersten 4 Zeichen von links per VBA löschen.
Habe es mit unten stehendem Makro probiert, das Ergebnis ist immer 1.
Vielleicht hat jmd. einen Vorschlag.
Gruß
Chris

Dim lngzelle As Long
lngzelle = Sheets(1).Range("A:A").Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious).Row
Sheets(1).Range("A1:A" & lngzelle).Value = Replace(Range("A1").Value, "Test", "")

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erste 5 Zeichen im Range löschen
06.12.2022 09:55:31
Rudi
Hallo,
der Recorder ist dein Freund.
Du kannst dir nicht einfach irgendeine Syntax ausdenken.
Sheets(1).Range("A1:A" & lngzelle).Replace "Test", ""
Gruß
Rudi
AW: erste 5 Zeichen im Range löschen
06.12.2022 09:56:21
Daniel
Hi
wenn du so arbeitest, müsstest du jede Zelle einzeln bearbeiten (Schleife).
so weist du allen Zellen das Ergebnis der Zelle A1 zu.
Wenn immer der Text "Test" entfertn werden soll, könntest du mit der Menüfunktion ERSETZEN arbeiten, was im VBA dann so aussieht:

Columns(1).Replace "Test", "", lookat:=xlpart
wenn du immer die ersten 4 Zeichen entfernen willst, geht das am besten mit TEXT IN SPALTEN, wobei du feste Breite einstellst, den Trenner nach dem 4. Zeichen setzt und dann die ersten Spalte nicht übernimmst, sondern nur die zweite. Das sieht als Code so aus:

Columns(1).TextToColumns Destination:=Cells(1, 1), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 9), Array(4, 1))
Falls du dich fragst, wie man Text in spalten programmiert, dann führe das von Hand aus und zeichne mit dem Recorder auf.
Gruß Daniel
Anzeige
AW: erste 5 Zeichen im Range löschen
06.12.2022 09:59:26
Oberschlumpf
Hi Chris,
hier ne Idee mit For/Next

Sub test
Dim lloRow As Long
For lloRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & lloRow).Value = Right(Range("A" & lloRow).Value, Len(Range("A" & lloRow).Value) - 4)
Next
End Sub
Das Ganze bezieht sich immer auf das gerad gezeigte Tabellenblatt.
Hilfts?
Ciao
Thorsten
ups :-)
06.12.2022 10:01:03
Oberschlumpf
Hi,
änder mal im Befehl Right(...) ganz am Ende die 4 um in 5
Ciao
AW: ups :-)
06.12.2022 10:04:13
Rudi
und statt
Right(Range("A" & lloRow).Value, Len(Range("A" & lloRow).Value) - 4)
reicht
MID(Range("A" & lloRow), 6)
Gruß
Rudi
Anzeige
aber mit Right(...) gehts auch! ;-) owT
06.12.2022 10:09:07
Oberschlumpf
dann aber einfacher mit MID
06.12.2022 10:03:00
Daniel
da muss man weniger rechnen

For lloRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(lloRow, 1).value = Mid(Cells(lloRow, 1).Value, 5)
Next
Gruß Daniel
"Test" hat aber doch nur 4 Buchstaben? owT
06.12.2022 10:02:21
Oberschlumpf
ohne Schleife
06.12.2022 10:55:58
UweD
Hallo

    Dim lngzelle As Long, RR As Integer
With Sheets(1)
RR = .Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
lngzelle = .Range("A:A").Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious).Row
With .Cells(1, 1).Resize(lngzelle, 1)
.Offset(0, RR).FormulaR1C1 = "=MID(RC1,5,999)" 'Formel in Hilfsspalte ganz hinten
.Value = .Offset(0, RR).Value 'Wert aus Hilfsspalte
End With
.Columns(RR + 1).Delete 'Hilfsspalte wieder löschen
End With
LG UweD
Anzeige
Fehler...
06.12.2022 14:15:21
UweD
Hallo nochmal
da hatte ich die falsche Variable verwendet.
So wäre es richtig

    Dim lngzelle As Long, LC As Integer
With Sheets(1)
LC = .Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte des gesamten Blattes
lngzelle = .Range("A:A").Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious).Row
With .Cells(1, 1).Resize(lngzelle, 1)
.Offset(0, LC).FormulaR1C1 = "=MID(RC1,5,999)" 'Formel in Hilfsspalte ganz hinten
.Value = .Offset(0, LC).Value 'Wert aus Hilfsspalte
End With
.Columns(LC + 1).Delete 'Hilfsspalte wieder löschen
End With
LG UweD
Anzeige
AW: Fehler...
07.12.2022 07:15:15
Chris
Fragen:
Weshalb
.Offset(0, LC): 0, weil man bereits in der allerletzen Spalte ist?
.Columns(LC + 1).Delete weshalb +1?
Gruß
Chris
AW: Fehler...
07.12.2022 08:05:41
UweD
Hallo
&GT&GT&GT .Offset(0, LC): 0, weil man bereits in der allerletzen Spalte ist?
Die letzte beschriebenen Spalte wird ermittelt (LC). Diese soll ja nicht für die temporären Formeln verwendet werden, sondern die Nächste.
- Annahme deine Daten stehen in A:B
- Dann wäre LC = 2
- Spalte A soll bearbeitet werden [ Zelle(1,1) bis Zelle(Letzte,1) ]
= Dann wäre die Hilsfsspalte ja C
= A versetzt um 2 / also 1+LC / also 3

&GT&GT&GT .Columns(LC + 1).Delete weshalb +1?
Hier das Gleiche
- LC ist immer noch 2
- Aber die Dritte soll gelöscht werden also LC+1
LG UweD
Anzeige
na, und wann kommt dein Feedback?
06.12.2022 11:13:36
Oberschlumpf
AW: na, und wann kommt dein Feedback?
06.12.2022 14:07:15
Chris
Hallo zusammen,
danke für die vielen konstruktiven Vorschläge, die allesamt funktionieren. Habe das Makro mit der Hilfspalte genommen.
Vielen Dank euch !
Chris

315 Forumthreads zu ähnlichen Themen

zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Anzeige
Teile einer Zelle tiefstellen
Larass

Moins!
ich würde gerne Teile einer Zelle tiefgestellt haben, finde aber keine Einstellung dazu.
Bisher bekomme ich das nur hin, indem ich den Text so wie er sein soll von Word aus in die Zelle kopiere.
Geht das nicht auch einfacher?
Gruß, Lars
15.12.2008 09:54:08
Thread-ID: 1032941
6 Beiträge
Ausgabe der ersten 4 Zeichen aus anderer Zelle
Eddie

Mahlzeit an alle,
habe wohl ne ganz einfache Sache .. ich suche ne kleine Formel, womit ich in A1 die ersten 4 Zeichen in der Zelle B1 wieder anzeige, also kopiert wird
Danke und gruß Eddie
05.01.2009 14:39:00
Thread-ID: 1036984
4 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
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
9
3
5
3
4
7
4
5
4
6
1
2
3
4
2
9
7
5
4
4
4
2
5
6
5