VBA - nach erster Buchstabengruppe Leerzeichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub RPP() Dim arr, cnt&, Letter& arr = Range(Cells(1), Cells(1).End(xlDown)) For cnt = 1 To Ubound(arr) For Letter = 1 To 4 If IsNumeric(Mid(arr(cnt, 1), Letter, 1)) Then arr(cnt, 1) = Left(arr(cnt, 1), Letter - 1) & " " & Mid(arr(cnt, 1), Letter, 9 ^ 9) Exit For End If Next Next Cells(1).Resize(Ubound(arr), 1) = arr End Sub

Sub RPP() Dim arr, cnt&, Letter& arr = Range(Cells(1), Cells(1).End(xlDown)) For cnt = 1 To Ubound(arr) For Letter = 1 To 4 If Mid(arr(cnt, 1), Letter, 1) = " " Then Exit For If IsNumeric(Mid(arr(cnt, 1), Letter, 1)) Then arr(cnt, 1) = Left(arr(cnt, 1), Letter - 1) & " " & Mid(arr(cnt, 1), Letter, 9 ^ 9) Exit For End If Next Next Cells(1).Resize(Ubound(arr), 1) = arr End Sub

Sub LeerZeichenEinfügen() Dim lngZeile As Long Dim lngZ As Long Dim pos1 As Integer Dim pos2 As Integer Dim lngZeileMax As Long Dim strSatz As String Dim wksBlatt As Worksheet Set wksBlatt = ThisWorkbook.Worksheets("Tabelle2") With wksBlatt lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row For lngZeile = 1 To lngZeileMax strSatz = "" pos1 = InStr(1, .Cells(lngZeile, 1).Value, "-") For lngZ = 1 To pos1 Select Case Mid(.Cells(lngZeile, 1).Value, lngZ, 1) Case "A" To "Z" strSatz = strSatz & Mid(.Cells(lngZeile, 1).Value, lngZ, 1) Case Else If IsNumeric(Mid(.Cells(lngZeile, 1).Value, lngZ, 1)) Then pos2 = InStr(1, .Cells(lngZeile, 1).Value, Mid(.Cells(lngZeile, 1).Value, _ lngZ, 1)) End If Exit For End Select Next lngZ strSatz = strSatz & " " & Mid(.Cells(lngZeile, 1).Value, pos2, Len(.Cells( _ lngZeile, 1).Value)) .Cells(lngZeile, 2).Value = strSatz Next lngZeile End With End Sub

Guten Abend Anton,
auch Dir herzlichen Dank.
Deine Version der Lösung funktioniert auch tadellos. Hier wird das Ergebnis nach "B" kopiert. Der Quell bleibt erhalten. Auch nicht schlecht.
Nochmals Danke :-)
Ich habe nun doch noch zwei ähnliche Probleme die aus dem Datenimport einer Webseite herrühren:
Problem 1)
Eines der beiden Probleme bezieht sich auf übernommenen Datums-/zeitangaben.
Diese werden mit jeweils zwei leerzeichen vor und hinter dem eigentlichen Datum ausgegeben.
Damit ist jede Weiterverarbeitung zunichte.
Nun habe ich probiert dies mit:


Dim i As Integer
For i = 1 to 10
Cells(i,1) = Trim(Cells(i,1))
Next

zu lösen... allerdings dauert das bei 10.000 Zellen derart lange - das wäre nicht praktikabel.
Über die Excelhauseigene Variante Suchen/Ersetzen lässt sich ein Teilergebnis um längen schneller erreichen. Ich entferne alle Leerzeichen aus den Zellen. Allerdings ist das übernommene Format als Datum mit Uhrzeit formatiert. Damit ergibt sich nun folgendes Ergbnis:
in Spalte "A": 15.01.1614:01
bzw
in Spalte "C": 18.05.201601:24
Wäre es möglich entweder über einen anderen Code ohne Excel-Suchen/Ersetzen das relativ zügig lösen zu können?
Oder alternativ dazu in dem Ergebnis von Suchen/Ersetzen die Leerzelle an die richtige Stelle zu setzen?
Man könnte die Uhrzeit auch "einfach" abschneiden...
Auf jedenfall sollte eine Formel danach mit dem Datum arbeiten können.
Problem 2)
In Spalte "D" wird Text übernommen, welcher zuvor abwechselnd oder zusammen folgende drei Kürzel enthält:
HV
HH
HM
getrennt wird mit einer Schräge / auf welche der eigentliche Text folgt.
Jetzt kommt das Problem.
Eigentlich sind es zwei :-(
Die Kürzel müssten nach Spalte "E" ohne Leerzeichen übernommen werden.
Die Kürzel kommen auch zusammen vor.
Bsp:
HH/ HM - Hier kommt der Text
HM / Hier kommt der Text
HV/HM/HH/Hier kommt der Text
HH/Hier kommt der Text
HV/HM / HH-Hier kommt der Text
Wie man das lösen könnte, da stehe ich vollkommen auf dem Schlauch.
Vielleicht könnte man den Code so aufbauen, dass die Kürzel, Leerzeichen und die Schrägen erkannt und entfernt werden?
Hat da jemand vielleicht eine Idee?
Ich hab mal zum vielleicht besseren Verständnis eine Mappe mit den Beispielen erstellt...
https://www.herber.de/bbs/user/110732.xlsx
Viele Grüße
bassi

Option Explicit Sub bassi() Dim i& With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With For i = 1 To 10000 Cells(i, 5) = CDate(Trim(Application.WorksheetFunction.Substitute(Cells(i, 4), " ", " "))) Next With Application .ScreenUpdating = False .Calculation = xlCalculationAutomatic End With End Sub

Hallo Matthias,
ich könnte heulen...
Ich muss leider alles was ich sagte zurück nehmen...
Heut hab ich das alles in die Originaldatei eingebracht.
Leider klappt das hier nun garnicht mehr so schön.
1.)
Bis die Daten in den Formeln landen werden diese in Rohform zuvor aus einer Webseite importiert. Sie durchlaufen drei Filter und werden dann den entsprechenden Spalten zugeordnet.
Noch bevor dieser Ablauf das Tabellenblatt erreicht, welches die Schleife beeinhaltet frieert der Ablauf ein. "Weißer Bildschirm"... Das dauert dann eine Weile und dann läuft alles wie es soll weiter.
Auf dem Tabellenblatt mit der Schleife selbst ist nichts von "Weißer Bildschirm" zu merken. Hier läuft alles problemlos. Kopieren, Einfügen, Berechnen... alles ohne Probleme, so wie in der Beispieldatei auch.
In der Originaldatei ohne diese Schleife ist dieses Phänomen nicht zu beobachten.
Diese besteht aus 8 Tabellenblättern, alle voll mit Berechnungen und Listen. Keine Pivots, keine Diagramme, keine anderen Schleifen... nichts was meines Erachtens große Rechenleistung fordert.
Wie kann denn das sein? Bzw kann man da was gegen tun?
2.)
Nach der Filterung der 10.000 Daten ist nun aufgefallen, dass verschiedene Texte hinter den Kürzeln auch noch Sonderzeichen beeinhalten.
Dies führt dazu, dass die Einsortierung nun nicht mehr korrekt erfolgt.
Ich denke man könnte das nun sozusagen "tauschen" - Statt die Sonderzeichen zu filtern, könnte man die Kürzel filtern?
Das ergibt dann zwar einen Text mit Sonderzeichen vorn an, aber besser so als komplett falsch.
Hab versucht in meinem Laienhaften Wahn in der Formel die Sonderzeichen gegen die Kürzel zu tauschen... naja... kannst Dir ja denken - hat natürlich nicht geklappt :-(
Könntest du hier vielleicht nochmal einschreiten?
Viele Grüße
bassi

Beliebteste Forumthreads (12 Monate)

VBA - nach erster Buchstabengruppe Leerzeichen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

193 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - nach erster Buchstabengruppe Leerzeichen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

193 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread