Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalte ab erstem Leerzeichen löschen

Forumthread: Zellinhalte ab erstem Leerzeichen löschen

Zellinhalte ab erstem Leerzeichen löschen
Kai
Hi,
wie kann ich den per Makro eine Spalte H bearbeiten und dort alle Inhalte , die in einer Zelle ab dem ersten Leerzeichen kommen, löschen, Wenn der inhalt mit "A" beginnt
Beispiel:
aus "A blablabla" soll "A" werden
aus "Antwort 5" soll "Antwort" werden
Aber wie gesagt, nur, wenn der INhalt mit "A" gebint.
Danke mal für alle Tipps
Kai
Anzeige
AW: Zellinhalte ab erstem Leerzeichen löschen
11.09.2009 13:03:11
David
Hallo Kai,
so:
Sub sauber()
For i = 1 To Range("H65500").End(xlUp).Row
Pos = InStr(Cells(i, 8), " ")
If Not Pos = 0 Then Cells(i, 8) = Left(Cells(i, 8), Pos - 1)
Next
End Sub
Rückmeldung wäre nett.
Gruß
David
AW: Zellinhalte ab erstem Leerzeichen löschen
11.09.2009 13:22:03
David
Hallo Kai.
Hab das mit dem A ganz vergessen:
Sub sauber()
For i = 1 To Range("H65500").End(xlUp).Row
If Left(Cells(i, 8), 1) = "A" Or Left(Cells(i, 8), 1) = "a" Then
Pos = InStr(Cells(i, 8), " ")
If Not Pos = 0 Then Cells(i, 8) = Left(Cells(i, 8), Pos - 1)
End If
Next
End Sub
Gruß
David
Anzeige
AW: Zellinhalte ab erstem Leerzeichen löschen
11.09.2009 13:23:19
JogyB
Hi.
Da fehlt die Überprüfung des ersten Zeichens.
Außerdem macht das nicht die ganze Spalte, sondern läßt die letzten 36 aus - ist zwar selten relevant, aber man weiß ja nie. Und in Excel 2007 sieht das dann gleich nochmal anders aus.
Gruss, Jogy
AW: Zellinhalte ab erstem Leerzeichen löschen
11.09.2009 13:32:42
David
Hallo Jogy,
das mit dem ersten Zeichen hab ich schon korrigiert.
Ich gehe mal davon aus, dass die letzten Zeilen so selten vorkommen, dass dies in 99,999999% der Fälle irrelevant ist. Ich habe mir halt nie die genaue Zahl gemerkt, weil es in meiner Praxis bisher noch NIE notwendig war.
Und Excel 2007 war hier nicht gegeben, abgesehen davon: ob du dann da 65500 oder 65536 drin stehen hast, wäre eh egal, weil beides nicht ausreichend.
Gruß
David
Anzeige
AW: Zellinhalte ab erstem Leerzeichen löschen
11.09.2009 13:55:43
JogyB
Hi.
Das Zauberwort heißt rows.count
Gruß, Jogy
AW: Zellinhalte ab erstem Leerzeichen löschen
11.09.2009 14:10:23
David
Zu Mittag heute einen Teller Perfektionismus gegessen? ;-)
Ist doch egal, die Lösung passt und damit ist gut.
Gruß
David
Danke Euch beiden, die Lösungen passen beide..
11.09.2009 14:16:36
Kai
HI,
vielen Dank dafür, es funktionieren beide Lösungen . Besten Danke. Hat mir geholfen.
Gruss Kai
Anzeige
AW: Zellinhalte ab erstem Leerzeichen löschen
11.09.2009 14:31:35
JogyB
Den gibt's bei mir gleich zum Frühstück ;)
Gruss, Jogy
AW: Zellinhalte ab erstem Leerzeichen löschen
11.09.2009 13:13:16
JogyB
Hi.
Sub loescheAbLeerzeichen()
Dim zeiLe As Long
Const spalte = 8 'H
Application.ScreenUpdating = False
With ActiveSheet
On Error Resume Next
For zeiLe = 1 To IIf(IsEmpty(.Cells(Rows.Count, spalte)), .Cells(Rows.Count, spalte). _
End(xlUp).Row, Rows.Count)
If Left(.Cells(zeiLe, spalte).Value, 1) = "A" Then
' Wenn kein Leerzeichen, dann gibt das einen Fehler - ignorieren
' Daher das On error resume next weiter oben
.Cells(zeiLe, spalte).Value = _
Left(.Cells(zeiLe, spalte).Value, InStr(.Cells(zeiLe, spalte).Value, " ") -  _
1)
End If
Next
On Error GoTo 0
End With
Application.ScreenUpdating = True
End Sub
Geht jetzt nur mit "A" am Anfang, wenn es mit "a" auch gehen soll, dann erstze
If Left(.Cells(zeiLe, spalte).Value, 1) = "A" Then
durch
If UCase(Left(.Cells(zeiLe, spalte).Value, 1)) = "A" Then
Gruss, Jogy
Anzeige
;

Forumthreads zu verwandten Themen

Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
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
Ein Teil einer Formel in andere Zelle ausgelagern
Hans

Ein Teil der Formel – der immer gleich ist - soll in eine andere Zelle ausgelagert werden. Ist die möglich, gibt es hierfür eine spezielle Funktion?
=WENN(E25=5;SVERWEIS(Rechn.!C25;'C:\Ornder\[dateiname.xls]tabelle'!$A$2:$B$17128;2;FALSCH);"")
=WENN(E25=5;SVERWEIS(Rechn.!C25; Verweis au...
14.06.2009 21:29:10
Thread-ID: 1081465
2 Beiträge
summewenn + Bedingg. "die ersten 5 linken Zeichen"
Matthias

Hallo zusammen,
ich möchte die ersten 5 linken Zeichen (Text) einer Zelle auswerten. Wenn ein Kriterium erfüllt ist, soll summiert werden.
Das Kriterium besteht aus Text. Die Länge kann variieren.
Für Anregungen für eine korrekte Formel bin ich dankbar :-).
TIA und Grüße
Mat...
01.07.2009 12:35:51
Thread-ID: 1085662
3 Beiträge
Teilbereich aus einer Zelle
MikeM

Hallo zusammen,
eigentlich trivial aber ich bekomme es nicht hin.
In Zelle A1 steht: Datum: 01.01.2009
In A2 möchte ich stehen haben: 01.01.2009
Allerdings kann in A1 auch: 1.1.09 stehen
Die Formel: rechts(A1;10) würde funktionieren, wenn das Datum nicht auch im Format 1.1....
21.07.2009 08:16:34
Thread-ID: 1090112
4 Beiträge
Verteilung des Inhalts einer Zelle auf zwei Zellen
Jeanette

Hallo, gegeben eine Tabelle mit einer Spalte, die Informationen in folgender Form enthält:
1. Ein Wort oder mehrere Wörter, die durch Blank getrennt sind.
2. Unmittelbar auf das letzte dieser Wörter folgt ein Komma, gefolgt von einem Blank.
3. Danach öffnet sich eine Klammer „(„.
20.08.2009 16:33:59
Thread-ID: 1097466
5 Beiträge
Zelle auslesen und aufteilen
Georg

Hallo Zusammen,
ich lese bereits Dateinamen in jeweils einzelne Zellen ein. In diesen steht dann folgendes Format, welches ich zerlegen möchte.
es sollte jeweils beim "_" geteilt werden und in eine eigene Zelle geschrieben werden.
Es gibt zwar sehr viele Beiträge zu diesem Thema, ab...
10.10.2009 11:04:07
Thread-ID: 1108706
8 Beiträge
Zeichen vor Namen entfernen
Michael

Hallo,
ich habe eine Datei mit etlichen Namen. Vor jedem Namen steht allerdings folgendes Zeichen:'
Also praktisch so 'Peter Müller
Die Zeichen sind in der Übersicht nicht zu sehen, wenn ich jedoch eine Zelle anklicke ist das Zeichen zu sehen. Kann mir jemand sagen, wie ich die Ding...
14.10.2009 15:07:15
Thread-ID: 1109601
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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