Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String mit 2 Monaten (immer letzten auslesen)

Forumthread: 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.
Anzeige

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
Anzeige
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
Anzeige
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
Anzeige
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
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
Anzeige
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
Anzeige
AW: wie solls denn genau aussehen ? owT
26.10.2018 15:12:47
Andreas
Danke für die Info Daniel.
Gruß
Andreas
;

Forumthreads zu verwandten Themen

Ausgangsdatum + X Monate
Bertram

Hallo zusammen,
ich stehe heute mal wieder voll auf dem Schlauch, daher sollte mein Level lauten "Excel warum-einfach-wenn's-kompliziert-geht"
Ich möchte von einem Ausgangsdatum 3,6,9 und 12 Monate addieren und diese Monate Xen. Mit folgender Formel geht das. Aber geht das auch kürzer?<...
06.03.2009 10:39:42
Thread-ID: 1057192
7 Beiträge
Anzeige
Tage in Zeiträumen best Monaten zuordnen
Gorkij

Moin,moin,
liebe Leute, habe ein Problem und hoffe Unterstützung, nachdem alle meine zusammengebastelten Hilfskonstruktionen nicht taugen:
In den Spalten b und c in den Zeilen 2 - 100 stehen jeweils Anfangs- und Enddaten von Unterbrechungszeiten, in der Spalte a der Name des jeweili...
22.04.2009 12:04:12
Thread-ID: 1070302
3 Beiträge
Anzeige
Aus Datum Monat ausgeben
B4u

Hallo,
ich gebe ein Datum ein, aus dessen der Monat vollständig angeben werden soll.
Eingabe = 01.06.2009; Ausgabe = Juni
Hierzu habe ich folgendes Sub. Allerdings wird immer der Januar ausgegeben.
Private Sub txb_aDate_AfterUpdate() Dim strMonat As String Dim anfdate As Var...
01.06.2009 13:33:26
Thread-ID: 1078450
9 Beiträge
Monat als Text
Christian

Hallo Freunde,
ich hab in Zelle C1 einen Wert von z.B."8" und möchte dafür in Zelle E3 den Text "August" erscheinen lassen. Ebenso wenn z. B. "2" in C1 steht soll "Februar" als Text in E3 erscheinen.
Ist es besser über eine verschachtelte Wenn Formel zu gehen ?
Gruß Christian
08.09.2009 10:19:25
Thread-ID: 1101196
13 Beiträge
Aus Systemdatum Monatszahl ermitteln
Wolfgang

Hallo,
wäre denkbar, aus dem Systemdatum den Monat als Monatszahl darzustellen, so dass bei WorkbookOpen in Zelle A1 des Tabellenblattes "Start" automatsch die aktuelle Monatszahl minus 1 Monat, also nun 08 erscheint? Kann hierzu unter Recherche bzw. auf der Excel-CD nichts entdecken, so da...
19.09.2009 18:41:39
Thread-ID: 1104115
12 Beiträge
3D Formel aus Monat: Tag
Lorenz

Hallo FormelFreaks.
Ich bezog von einem SPEZIALISTEN (natürlich aus diesem Forum) anschließende 3D-Formel
Mit "TEXT("1."&MTRANS(ZEILE(INDIREKT("1:"&C16)));"MMMM")" wird die Summe aus dem Monatsname (Blattname) ausgegeben[funktioniert Super]! Ist es irgendwie möglich diese Funkti...
10.11.2009 08:19:45
Thread-ID: 1115697
2 Beiträge
Monatstage aus Datumsbereich errechnen
MathiasW.

Hallo Excel Freunde,
ich möchte aus Start- u. Enddatum, die Tage für jeden Monat im Datumsbereich errechnen.
Dazu habe ich in Zelle B2 das Startdatum, in Zelle B3 ist das Enddatum.
In den Zellen D2:D13 stehen die Monatsnamen Januar bis Dezember, daneben in E2:E13 sollen die Ergebnis...
19.01.2011 18:33:09
Thread-ID: 1196502
3 Beiträge
Anzeige
Monatsauswertung über Datum/ mit zählenwenn??
Dirk

Hallo!
Ich habe eine Spalte mit verschiedenen Datumseinträgen von 01.01.11 bis 31.12.11, die aber durcheinander sind.
Jetzt will ich eine Monatsauswertung machen und will zählen lassen, wie viele Einträge im Januar (als 01.01.11-31.12.11), Feb usw. gemacht wurden.
Ich komme nicht au...
27.07.2011 11:45:55
Thread-ID: 1223825
9 Beiträge
Anzeige
Excel Formel als Text ausgeben
Karen

Hallo Forum,
leider haben mir die bisherigen Beiträge im Archiv noch nicht so richtig weitergeholfen.
Ich habe eine eigentlich - wahrscheinlich - ziemlich simple Frage:
Ich habe in A1 eine Formel stehen. Diese möchte ich in B1 als Text ausgegeben sehen. Die Zelle B1 soll eine For...
26.10.2011 09:36:18
Thread-ID: 1235437
10 Beiträge
Jahr und Monat aus Datum extrahieren mit Punkt
Constantin

Hallo,
um JJJJ.MM aus einem Datum zu extrahieren habe ich zuerst das Jahr und dann den Monat extrahiert.
Beim Zusammenfügen erscheint der gewünschte Punkt als Komma. Wie muss ich es richtig machen?
.Cells(intzeile, 15) = Year(vDate) & "." & Month(vDate)
Komma ging notfal...
09.12.2012 22:45:23
Thread-ID: 1290006
8 Beiträge
Berechnung als Text ausgeben
Wallt

Guten Abend zusammen!
Ich hätte da nochmal eine, wie ich finde, recht komplexe Frage zu Excel. Ich möchte in Excel eine Berechnung durchführen lassen.
Das Ergebnis dieser Berechnung soll dann automatisch als Text ausgegeben werden.
Da dies etwas schwierig ist zu erklären habe ich m...
22.01.2013 19:49:55
Thread-ID: 1295473
6 Beiträge
aus Datum Anzahl Monat(e) ermitteln
PW

Hallo,
mein Problem wie folgt:
Ich habe ein Startdatum und ein Enddatum. Aus diesen 2 Angaben muss ich die Anzahl der Monate ermitteln. zB aus
01.01.13-31.03.13 = 3 Monat
01.01.13-31.05.13 = 5 Monate
01.05.13-31.05.13 = 1 Monat
usw. alle Kombinationen sind denkbar...
14.03.2013 10:55:12
Thread-ID: 1303910
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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