Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten importiert... Wört zusammen geschrieben :-(

Daten importiert... Wört zusammen geschrieben :-(
11.11.2008 13:54:00
Eby
Hallo!
Ich importiere Daten aus dem Internet nach Excel.
Leider werden hier die Wörter zusammen geschrieben.
Gibt es eine Möglichkeit, die Wörter die immer groß anfangen auseinander zu bekommen?
Vielen Dank!
Eby

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten importiert... Wört zusammen geschrieben :-(
11.11.2008 14:27:00
David
Hallo Eby,
kannst du mal ein Beispiel posten, wie das aussieht?
Gruß
DAvid
AW: Daten importiert... Wört zusammen geschrieben :-(
11.11.2008 14:45:15
Heiko
Hallo Eby,
z.B. so: Zellen mit den Texten markieren (Selektieren) Makro starten fertig.
Ist vielleicht nicht die beste Lösung aber es läuft.

Sub TrennenG()
Dim rngDaten As Range
Dim strOrg As String, strNew As String
Dim lngI As Long, lngN As Long
Dim bolHelp As Boolean
lngN = 1
For Each rngDaten In Selection
lngN = 1
strNew = ""
strOrg = rngDaten
For lngI = 1 To Len(strOrg)
bolHelp = Mid(strOrg, lngI, 1) Like "[A-Z]"
If bolHelp And lngN > 1 Then
strNew = strNew & " " & Mid(strOrg, lngI - lngN + 1, lngN - 1)
lngN = 1
End If
lngN = lngN + 1
Next lngI
strNew = strNew & " " & Mid(strOrg, lngI - lngN + 1, lngN - 1)
rngDaten = Trim(strNew)
Next rngDaten
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

Anzeige
AW: Daten importiert... Wört zusammen geschrieben :-(
11.11.2008 17:58:02
Eby
Hallo Heiko!
Das hat geklappt :-)
Super vielen Dank!
Eby
AW: Daten importiert... Wört zusammen geschrieben :-(
12.11.2008 09:25:00
Eby
Hallo!
Ich nochmal.
Kann man das Makro so ändern, dass er erkennt, dass die folgende Worte nicht geändert werden müssen, da sie schon ein Leerzeichen haben?
Dann wäre es ganz optimal :-)
AW: Daten importiert... Wört zusammen geschrieben :-(
12.11.2008 11:59:00
Heiko
Hallo Eby,
z.B. so:

Sub TrennenG()
Dim rngDaten As Range
Dim strOrg As String, strNew As String
Dim lngI As Long, lngN As Long
Dim bolHelp As Boolean
lngN = 1
For Each rngDaten In Selection
lngN = 1
strNew = ""
strOrg = rngDaten
For lngI = 1 To Len(strOrg)
bolHelp = Mid(strOrg, lngI, 1) Like "[A-Z]"
If bolHelp And lngN > 1 Then
If Mid(strOrg, lngI - 1, 1)  " " Then
strNew = strNew & " " & Mid(strOrg, lngI - lngN + 1, lngN - 1)
lngN = 1
End If
End If
lngN = lngN + 1
Next lngI
strNew = strNew & " " & Mid(strOrg, lngI - lngN + 1, lngN - 1)
rngDaten = Trim(strNew)
Next rngDaten
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

Anzeige
AW: Daten importiert... Wört zusammen geschrieben :-(
12.11.2008 14:25:57
Eby
Hallo Heiko!
Genauso soll es sein :-))))) *freu*
Also auf einfügen und wieder abziehen muss man erstmal kommen.
Alle Achtung!
DANKE!
Eby
AW: Daten importiert... Wört zusammen geschrieben :-(
11.11.2008 14:51:00
Rudi
Hallo,
als Funktion:

Function SplitText(strText As String, iIndex As Integer)
Dim strTmp As String, i As Integer
Const strDelim As String = "|"
For i = 1 To Len(strText)
Select Case Asc(Mid(strText, i, 1))
Case 65 To 90
strTmp = strTmp & strDelim & Mid(strText, i, 1)
Case Else
strTmp = strTmp & Mid(strText, i, 1)
End Select
Next
If Left(strTmp, 1) = strDelim Then strTmp = Right(strTmp, Len(strTmp) - 1)
SplitText = Split(strTmp, strDelim)(iIndex - 1)
End Function


Gruß
Rudi

Anzeige
AW: Daten importiert... Wört zusammen geschrieben :-(
11.11.2008 17:56:00
Eby
Hallo!
Komme erst jetzt zum antworten.... hatte mit dem Auto heute einen Getriebeschaden :-((((
Aber zum Glück fast zu Hause und nicht auf der Autobahn... Das hätte ja was geben können....
Also mit dem Makro komme ich klar.
Mit der Möglichkeit über Funktion schaffe ich es nicht. Aber damit kenne ich mich auch nicht so gut aus.
Ich habe auch ein Makro angelegt... dann Alt+F11 - hinein kopiert - Alt + Q - ausprobiert über Makro - aber nix. Bestimmt war der Weg falsch...
Schonmal vielen Dank!
Eby

299 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Anzeige
Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Makro ohne Pfadbezug erstellen.
George

Hallo,
Ich würde gerne eine Analysefunktion mit immer gleichem Zellenbereich in verschiedenen Dateien (immer gleicher Aufbau) per Makro ausführen. Wenn ich eine neue Datei öffne, will sich das böse Makro immer auf den Pfad der Datei beziehen, mit der das Makro erstmalig erstellt wurde. Ande...
11.08.2008 08:46:50
Thread-ID: 1000712
3 Beiträge
Monat eingeben und dann
Kurt

Guten Morgen Zusammen,
ich möchte gern in der Zelle "C1" eine Zahl eingeben, z.b. 8, dann soll
in der Zelle C2 der Monat erscheinen u. zwar das ENDE 8 = 31.08.2008,
geht das ?
mfg Kurt
11.08.2008 09:53:00
Thread-ID: 1000728
6 Beiträge
Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 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
4
15
2
13
6
2
5
3
3
9
4
9
2
2
5
1
3
15
12
5
2
4
3
6