Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

860to864: Zahlen von Buchstaben durch ein Leerzeichen trenne

Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 10:25:07
Buchstaben
Hallo,
kann ich ein Wort, dass am Ende aus Zahlen besteht, durch ein Leerzeichen von den Buchstaben trennen? Z.B. in A1 "August123" soll in B1 "August 123" draus werden.
Gruß
Jürgen

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 10:32:23
Buchstaben
Korrektur!
besser wäre noch, wenn ich die Werte direkt in A1 evtl durch ein Makro ändern kann, da ich keine neue Spalte für das Ergebnis haben möchte
Gruß
Jürgen
AW: Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 10:43:00
Buchstaben
Hi Jürgen
Hier ein Makro (bezieht sich nur auf A1): 

Sub Leerzeichen()
Dim lstrZahl As String, liZahl As Integer
liZahl = 1
Do Until lstrZahl  "" And IsNumeric(lstrZahl) = False
lstrZahl = Right(Range("A1").Value, liZahl)
liZahl = liZahl + 1
Loop
Range("A1").Value = Left(Range("A1").Value, Len(Range("A1").Value) - (liZahl - 2)) & " " &  _
Right(Range("A1").Value, liZahl - 2)
End Sub
Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 10:59:28
Buchstaben
Hallo Thorsten,
es kommt die Meldung: Typen unverträglich. Ist wahrscheinlich meine Schuld. Die Werte stehen natürlich nicht nur in A1 sondern in A1:A40000 und ich habe A1 in dem Makro einfach durch A1:A40000 ersetzt.
Gruß
Jürgen
AW: Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 11:02:00
Buchstaben
Hallo, 
Dim lstrZahl As String, liZahl As Long

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 10:33:00
Buchstaben
Hallo, 
{=LINKS(A1;LÄNGE(A1)-SUMME(N(ISTZAHL(RECHTS(A1;SPALTE(1:1))*1))))&" "&RECHTS(A1; SUMME(N(ISTZAHL(RECHTS(A1;SPALTE(1:1))*1)))) }

Matrixformel! {} nicht eingeben sondern Formel mit shift+strg+enter abschließen.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 11:00:19
Buchstaben
Hi,
hier ein Makro für die ganze Spalte:

Sub t()
Dim zeile As Long
Dim zeichen As Integer
Dim c As Range
For zeile = 1 To Range("A65536").End(xlUp).Row
Set c = Cells(zeile, 1)
For zeichen = 1 To Len(c.Value)
If IsNumeric(Mid(c.Value, zeichen, 1)) Then
c.Value = Left(c.Value, zeichen - 1) & " " & Right(c.Value, Len(c.Value) - (zeichen - 1))
Exit For
End If
Next zeichen
Next zeile
End Sub
Schönen Gruß,
Andi
AW: Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 11:18:00
Buchstaben
Hallo Andi,
ich habe das Makro wie folgt umgesetzt.

Sub Leerzeichen()
Dim zeile As Long
Dim zeichen As Integer
Dim c As Range
For zeile = 1 To Range("K65536").End(xlUp).Row
Set c = Cells(zeile, 1)
For zeichen = 1 To Len(c.Value)
If IsNumeric(Mid(c.Value, zeichen, 1)) Then
c.Value = Left(c.Value, zeichen - 1) & " " & Right(c.Value, Len(c.Value) - (zeichen - 1))
Exit For
End If
Next zeichen
Next zeile
End Sub
funktioniert leider nicht. Habe ich einen Fehler gemacht?
Gruß
Jürgen
Anzeige
AW: Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 11:21:51
Buchstaben
Hi,
ja hast Du;
die Zeile
Set c = Cells(zeile, 1)
bezieht sich weiterhin auf Spalte A. Für Spalte K muss es heißen:
Set c = Cells(zeile, 11)
dann müsste es eigentlich gehen.
Schönen Gruß,
Andi
AW: Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 11:30:48
Buchstaben
Hallo Andi,
vielen Dank, es hat geklappt. Dank auch allen anderen
Gruß
Jürgen
Gern geschehen... (ot)
11.04.2007 11:34:00
Andi
.
AW: Zahlen von Buchstaben durch ein Leerzeichen trenne
11.04.2007 11:30:00
Buchstaben
Hallo,
so:

Sub Leerzeichen()
Dim intZeichen As Integer
Dim c As Range
For Each c In Range(Cells(1, 11), Cells(Rows.Count, 11).End(xlUp))
For intZeichen = 1 To Len(c.Value)
If IsNumeric(Mid(c.Value, intZeichen, 1)) Then
c.Value = Left(c.Value, intZeichen - 1) & " " & Right(c.Value, Len(c.Value) - ( _
intZeichen - 1))
Exit For
End If
Next intZeichen
Next c
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige

307 Forumthreads zu ähnlichen Themen

Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Anzeige
Text und Ziffern farblich trennen
Joachim

Hi,
kann ich mit einem Makro einen Zellinhalt unterschiedlich färben. Hintergrund ist folgender: ich prüfe einen Range, ob dort Einträge sind, die nicht Nummern sind.
For Each c In .Range("DD2:DD1000")
If Not IsNumeric(c) Then .... wenn nicht
... springe ich in diese Zell...
29.11.2008 13:45:19
Thread-ID: 1028831
15 Beiträge
Text_Zahlenwert suchen und Zahlen "ablegen"
Lemmi

Hallo zusammen,
ich möchte aus einer drei spaltigen Tabelle Zahlen auslesen, die dann Monatsweise abgelegt werden sollen!
Es soll immer nach einem " Schlüsselwort" (...kann auch eine x beliebige Zahlfolge in der Benennungsliste sein) die Auslesung der Zahlenwerte durchgeführt werden.
03.01.2009 22:11:00
Thread-ID: 1036655
4 Beiträge
Anzeige
Buchstaben suchen und trennen
Ralle

Hallo sehr geehrte Forumsmitglieder,
ich benötige Eure Hilfe.
In Zeile A1 steht z.B: AntonBiber.
Nun möchte dieses Wort trennen, jeweils beim Grossbuchstaben.
Wenn möglich auch in VBA. Weils ne größere Datei ist.
Vielen Dank.
mfg Ralle
09.02.2009 16:21:00
Thread-ID: 1048703
5 Beiträge
"Zahlenspalte"und die "Buchstabenreihe" ausblenden
Karsten

Hallo,
kann man in Excel die "Zahlenspalte" (links vertikal 1234...) und die "Buchstabenreihe" (oben hor. A B C ...) ausblenden / verstecken?
Danke für die Hilfe.
Gruß
Karsten
28.02.2009 12:55:27
Thread-ID: 1055046
5 Beiträge
Text und Zahlen teilen
Bernie

Hallo Leute,
ich suche ganz dringen nach einem Makro, mit dem ich aus einer Tabelle mit Straßennamen - diese sind oft chaotisch geschrieben- z.B. Bahnhofstraße45A
a) die Straße in eine Spalte
b) die Hausnummer (mit A usw.) in eine Spalte
ausgeben kann.
Hat jemand ein zünd...
05.03.2009 14:39:23
Thread-ID: 1056861
7 Beiträge
Text und Zahlen in einer Zelle
Sammy

Hallo liebes Forum
Ich bekomme eine Liste mit ca. 200 Namen mit Personalnummeren.
die Zelle um die es geht sieht so aus.
Zelle A1 143(Gerda Becker)
Ich benötige allerdings die Zahl 143 in einer Zelle und (Gerda Becker) in einer Zelle.
Falls das nicht möglich ist, würde e...
24.05.2009 10:20:18
Thread-ID: 1076915
7 Beiträge
Zahl mit führenden Buchstaben
gerhard

Hallo,
Bitte um VBA Hilfe,
Wie kann ich nach Eingabe einer Nummer in der Spalte ab C6 zwei führende Buchstaben automatisch
anhängen.
z.B.
Eingabe in Zelle C10 die Nummer 4711 dann sollte nach Abschluß der Zelleingabe die
beiden führenden Buchstaben VA automatisch angefüg...
14.07.2009 13:22:48
Thread-ID: 1088460
13 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
11
5
14
3
6
4
4
6
6
12
6
2
4
3
7
5
5
3
5
5
22
11
3
2
3