Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1736to1740
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
1736to1740
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

right(instrrev) bis erstes "-" von rechts

right(instrrev) bis erstes "-" von rechts
28.01.2020 09:45:36
rechts
Hallo,
ich möchte aus der letzten Zelle einer Liste mit Inhalt der Form 0000-00-##0 den Bereich ##0, also bis zum ersten - von rechts auslesen. Die Länge des letzten Strings variiert leider, sodass ich nicht einfach right(string,3 ) anwenden könnte. Aktuell funktionieren beide Varianten zur Ermittlung der letzten Zeile nicht.
With ThisWorkbook.Worksheets("E")
'lastE = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
lastE = .Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile finden
lastRef = Right(.Cells(lastE, 2).Value, InStrRev(.Cells(lastE, 2).Value, "-")) 'letzte Ref finden (fortlaufende Nummer)
Me.Text_Ref.Value = Year(Now) & "-" & Month(Now) & "-" & "lastRef +1 " 'neue Referenz mit fortlaufender Nummer+1 erstellen
End With
Vielen Dank im Voraus

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ist der "-" immer vorhanden?
28.01.2020 10:05:30
JoWE
AW: ist der "-" immer vorhanden?
28.01.2020 10:18:43
Bo
Hallo,
ja, der Zellwert könnte z.B. 2020-01-032 lauten. Aktuell wird mir irgendwie trotz der Formatierung:
.Cells(last, 2).NumberFormatLocal = "0000-00-000" ab und zu z.b. 2020-1-32 erzeugt, was ich eigentlich nicht möchte.
Anscheinend passen die Typen in ... nicht, für InStrRev bekomme ich manchmal null und manchmal 8:
lastRef = Right(.Cells(lastE, 2).Value, InStrRev(.Cells(lastE, 2).Value, "-"))
AW: ist der "-" immer vorhanden?
28.01.2020 10:19:00
JoWE
vllt. so? 
Me.Text = Right(Cells(lastE, 2), Len(Cells(lastE, 2)) - InStrRev(Cells(lastE, 2), "-"))

Hinzufügen von Jahr und Monat und der fortlaufenden Nummer kriegst Du selbst hin?!
Jochen
Anzeige
Oder so...
28.01.2020 10:22:58
Torsten 

Me.Text = Mid(.Cells(lastE, 2), InStrRev(.Cells(lastE, 2), "-") + 1)

Gruss Torsten
AW: ist der "-" immer vorhanden?
28.01.2020 10:25:41
Bo
Der Code würde dann so aussehen:
With ThisWorkbook.Worksheets("E")
lastE = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
lastRef = Right(Cells(lastE, 2), Len(Cells(lastE, 2)) - InStrRev(Cells(lastE, 2), "-"))
Me.Text_Ref.Value = Year(Now) & "-" & Month(Now) & "-" & lastRef + 1 'neue Referenz mit fortlaufender Nummer+1 erstellen
End With
Bekomme leider immer noch den Laufzeitfehler in Zeile lastRef. lastE ist als Integer und lastRef als Long definiert.
Danke für die schnelle Rückmeldung
Anzeige
AW: ist der "-" immer vorhanden?
28.01.2020 10:28:11
Torsten
lastRef muss String sein. Hier bekommst du ja dein Ergebnis aus dem String. Wenn du das Ergebnis als Zahl brauchst, musst du das nachher noch umwandeln mit CDbl.
Gruss Torsten
AW: ist der "-" immer vorhanden?
28.01.2020 10:32:57
JoWE
Me.Text_Ref = Year(Now) & "-" & Month(Now) & "-" & lastRef + "1"
AW: right(instrrev) bis erstes "-" von rechts
28.01.2020 11:10:15
rechts
HI
auch wenn InstrRef das Zeichen von rechts sucht, das Ergebnis ist die Position des Zeichen im Text von links.
daher ist InstrRef mit MID zu kombinieren und nicht mit Right.
das Ergebnis ist ein Text. Wenn du diesen um 1 erhöhen willst, solltest du ihn hierfür in eine Zahl wandeln, um sicher zu gehen, dass VBA das "+" ausch als Additionszeichen verwendet und nicht als Verkettungsymbol.
astRef = Mid(.Cells(lastE, 2).Value, InStrRev(.Cells(lastE, 2).Value, "-") + 1)
Me.Text_Ref.Value = Year(Now) & "-" & Month(Now) & "-" & CLng(lastRef) + 1
Gruß Daniel
Anzeige
Liest du auch manchmal die Antworten von anderen..
28.01.2020 11:15:14
anderen..
..das ist exakt auch meine Loesung gewesen.
sorry, hatte ich übersehen
28.01.2020 11:22:45
Daniel
in den folgeantworten war wieder nur RIGHT zu lesen.
AW: sorry, hatte ich übersehen
28.01.2020 11:37:30
Bo
Vielen Dank Jochen und Thorsten. Das funktioniert soweit, um es in meine UserForm richtig zu übernehmen und die neue Referenz zu generieren. Leider wird die Referenz nach wie vor falsch formatiert in der Zelle angezeigt. Jetzt nicht nur ohne die zusätzlichen Nullen, sondern als 43861 bzw. mit der Formatierung des Zellbereichs als 0000-43-861. Für mich sieht das nach einem falsch formatierten Datum aus, was auch nachvollziehbar ist, da ja immerhin Year und Month genutzt werden. Der Zellbereich wird mit Übernahme in die Zellen aus der UserForm mit .Cells(last, 2).NumberFormatLocal = "0000-00-000" vor und nach dem Kopiervorgang formatiert. Gibt es eine Möglichkeit, dass das auch in dem einheitlichen Format (zb.: 2020-01-030) übernommen wird?
Anzeige
AW: sorry, hatte ich übersehen
28.01.2020 11:55:48
Daniel
Hi
Excel wird immer versuchen, so einen Text in ein Datum zu wandeln, insbesondere dann, wenn du ihn in eine Zelle schreibst.
du solltest beim Schreiben so eines Wertes immer das Hochkomma ' voranstellen, dann weiß Excel das dies ein Text ist, der nicht in eine Zahl, Datum oder Formel gewandelt werden darf, auch wenn dieser so aussieht.
oder du verwendest überall den Unterstrich als Trennzeichen: 2020_01_030.
dieser ist in Excel kein reguläres Trennzeichen für ein Datum, daher bleibt so was immer Text.
Gruß Daniel
AW: sorry, hatte ich übersehen
28.01.2020 12:50:32
Bo
ok, super Daniel, vielen Dank! Das ist simpel, wusste ich aber nicht. Gibt es dann eine ähnlich einfache Lösung, dass alle Nullen angezeigt werden? Also nicht 2020_1_30, sondern ein 2020_01_030 übernommen wird, da eigentlich bedeutet die Null im NumberFormatLocal, die Definition der Position im Gegensatz zur #.
Gruß bo
Anzeige
AW: sorry, hatte ich übersehen
28.01.2020 12:58:19
Daniel
Hi
Wenn du den Wert im 1 erhöhst, hast du immer eine Zahl und Zahlen haben keine führenden Nullen.
Wenn du diese haben willst, musst du in VBA die Funktion Format(Wert, "000") verwenden.
Gruß Daniel
Split() statt InStrRev()
28.01.2020 12:27:28
Rudi
Hallo, 
With ThisWorkbook.Worksheets("E")
lastE = .Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile finden
tmp = Split(.Cells(lastE, 2).Value, "-")
lastRef = tmp(Ubound(tmp)) * 1 'letzte Ref finden (fortlaufende Nummer)
Me.Text_Ref.Value = Format(Date, "YYYY-MM-") & Format(lastRef + 1, "000") 'neue Referenz mit  _
fortlaufender Nummer+1 erstellen
End With

Gruß
Rudi
Anzeige

304 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Wert zeischen 2 Zeichen ausgeben
Müller

Hi zusammen
Ich würde gerne den Wert zwischen dem Zeichen " ausgeben lassen. Z.b. in so einem Text:
uebcaise"http://www.irgendwas.de"eirhasbdf"http://www.website.de"vhergta
Jetzt müsste es 2 Werte ausgeben können:
Wert1: http://www.irgendwas.de
Wert2: http://www.website.de
07.12.2008 11:33:00
Thread-ID: 1030829
7 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Anzeige
nach @ Buchstaben und Zeichen in Spalte daneben
Thomas

Hallo Forum!
Ich hab in Spalte D viele verschiedene E-Mailadressen und möchte jeweils alles was nach dem @ kommt in die Spalte E daneben hineinkopieren. Die Teilformel nutzt mir ja nicht viel wiel die Zeichen und Buchstaben vor dem @ immer unterschiedlich sind.
Viellecht kann mir wer he...
24.06.2009 09:22:34
Thread-ID: 1084002
2 Beiträge
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:18:48
Thread-ID: 1086596
2 Beiträge
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:19:17
Thread-ID: 1086598
9 Beiträge
text auslesen in excel tabellenblatt
Michael

Public Sub aufruf() Dim IE Dim Quelltext As String Set IE = CreateObject("internetexplorer.application") IE.navigate "http://www.spotlight.de/" Quelltext = IE.Document.documentElement.outerHTML MsgBox Quelltext IE.Quit End Sub Hallo!
Der text soll im Tabellenblatt 1 als Text ausgebeben w...
04.09.2009 18:23:41
Thread-ID: 1100679
4 Beiträge
Leerzeichen innerhalb eines Strings finden
pitmu1@web.de

Hallo zusammen,
wer kann mir sagen, wie man das 2. Leerzeichen von rechts innerhalb eines Strings finden kann.
Möglicherweise ohne VBA.
Danke im voraus
17.09.2009 09:40:42
Thread-ID: 1103455
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
2
3
6
2
4
1
1
8
3
2
1
1
4
2
11
5
3
10
2
11
8
1
4
3
1