Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1652to1656
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
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String mit 2 Monaten (immer letzten auslesen)

String mit 2 Monaten (immer letzten auslesen)
26.10.2018 09:13:17
Andreas
Hallo Zusammen,
bräuchte bitte nochmal Hilfe.
Ich habe eine Tabelle in der in Zelle A2 immer folgender String importiert wird:
"Januar 2018 bis September 2018" (Die Monate sind dynamisch).
Wie kann ich mit VBA immer den hinteren Monat + Jahr auslesen lassen.
Ich muss mit diesem Monat dann eine Abfrage starten.
Danke vorab.

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String mit 2 Monaten (immer letzten auslesen)
26.10.2018 09:18:22
Matthias
Hi
Tabelle1

 AB
2Januar 2018 bis September 2018September 2018

Formeln der Tabelle
ZelleFormel
B2=RECHTS(A2;FINDEN("bis";A2)+1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
mit WennFehler ...
26.10.2018 09:20:17
Matthias
Besser so
Tabelle1

 AB
2Januar 2018 bis September 2018September 2018

Formeln der Tabelle
ZelleFormel
B2=WENNFEHLER(RECHTS(A2;FINDEN("bis";A2)+1);"")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: mit WennFehler ...
26.10.2018 09:23:19
Andreas
Hallo Matthias,
danke für deine Info. Bräuchte aber eine VBA Lösung :o)
Gruß
Andreas
Das war eh (m)ein Denkfehler sorry ...
26.10.2018 09:27:17
Matthias
VBA mit Split ...
26.10.2018 09:51:30
Matthias
Hier(m)ein VBA-Code
Dim MySplit, x&, strg$ MySplit = Split(Cells(2, 1), " ") For x = 0 To UBound(MySplit) If x > 2 Then strg = strg & " " & MySplit(x) Next MsgBox strg Gruß Matthias
AW: VBA mit Split ...
26.10.2018 09:55:00
Andreas
Klasse! Läuft.
DANKE
Andreas
AW: VBA mit Split ...
26.10.2018 10:04:33
Daniel
Hi
in VBA mit Textfunktinen: 
dim txt as string
dim Monat as string
dim Jahr as String
txt = Range("A2").value
txt = Mid(txt, Instr(txt, " bis ") + 5)
Monat = Left(txt, Instr(txt, " ") - 1)
Jahr = Mid(txt, Instr(txt, " ") + 1)
etws eleganter mit Split (wie ja schon gezeigt wurde) 
dim Jahr as String
dim Monat as String
dim TeilTexte
TeilTexte = Split(Range("A2").Value, " ")
Monat = TelTexte(3)
Jahr = TeilTexte(4)
Gruß Daniel
Anzeige
AW: VBA mit Split ...
26.10.2018 10:06:22
Andreas
Hallo Daniel,
danke für deine Antwort.
Gruß
Andreas
AW: VBA mit Split ...
26.10.2018 13:36:13
Andreas
Muss doch nochmal zu diesem Thema etwas fragen.
Ich nutze diesen Code:
Dim MySplit, x&, strg$
MySplit = Split(Cells(2, 1), " ")
For x = 0 To UBound(MySplit)
If x > 2 Then strg = strg & " " & MySplit(x)
Next
MsgBox strg
Der wird in Tabelle2 ausgelesen.
Wie bekomme ich den ausgelesenen String in Tabelle1 Zeile A2 kopiert?
Danke Andreas
Tabelle1.cells(2,1)=Strg
26.10.2018 14:11:52
Matthias
Hi
statt MsgBox strg schreibst Du:
Tabelle1.cells(2,1)=Strg
oder 
WorkSheets("Tabelle1").cells(2,1)=Strg
oder 
WorkSheets("Tabelle1").Range("A2")=Strg
Gruß Matthias
Anzeige
AW: Tabelle1.cells(2,1)=Strg
26.10.2018 14:33:29
Andreas
Danke Matthias.
Es funktioniert.
Er fügt mir den String ein, allerdings mit einem Leerzeichen davor.
Wie kann ich das abfangen?
DANKE
AW: Tabelle1.cells(2,1)=Strg
26.10.2018 14:41:32
Piet
Hallo
Tabelle1.cells(2,1)=Trim(Strg)
Thread bitte schliessen, Kontroll Haeckchen NIHT mehr aktivieren.
mfg Piet
AW: Tabelle1.cells(2,1)=Strg
26.10.2018 14:49:14
Andreas
Hallo Piet,
danke. Eine Frage bitte noch. Dann schliesse ich den Thread.
Beim einfügen wird der String in ein Datumsformat gesetzt.
Wie kann ich das VBA seitig direkt mit ändern.
Danke
Andreas
wie solls denn genau aussehen ? owT
26.10.2018 14:53:00
Matthias
AW: wie solls denn genau aussehen ? owT
26.10.2018 14:58:32
Andreas
Hallo Matthias,
im Endeffekt so wie es rauskopiert wird.
"September 2018" oder "Oktober 2018"
Danke
Andreas
Anzeige
Formatiere die Ziel-Zelle als Text ...
26.10.2018 15:06:57
Matthias
Hallo
Sub splitten()
Dim MySplit, x&, strg$
MySplit = Split(Cells(2, 1), " ")
For x = 0 To UBound(MySplit)
If x > 2 And x With Tabelle1.Cells(2, 1)
.NumberFormat = "@"
.Value = Trim(strg)
End With
End Sub
Gruß Matthias
AW: Formatiere die Ziel-Zelle als Text ...
26.10.2018 15:11:52
Andreas
Perfekt.
DANKE
Gruß
Andreas
AW: wie solls denn genau aussehen ? owT
26.10.2018 15:11:39
Daniel
Hi
wenn du einen Wert als Text in eine Zelle schreiben willst, ohne dass Excel diesen umwandelt wenn es ihn als Datum, Zahl oder Formel erkennt, dann setzte das Hochkomma vor den Text:
Tabelle1.cells(2,1) = "'" & Trim(Strg)
Gruß Daniel
AW: wie solls denn genau aussehen ? owT
26.10.2018 15:12:47
Andreas
Danke für die Info Daniel.
Gruß
Andreas
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige