Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String - Zahl (VBA)

Forumthread: String - Zahl (VBA)

String - Zahl (VBA)
Der
Hallo da draußen,
stehe ein wenig auf dem Schlauch und bräuchte Eure Hilfe.
Habe ein Datum der Form "100115" (sprich der 15.01.2010) als String. Jetzt möcht ich den String in VBA gerne als Zahl um eins erhöhen. Aus "100115" soll "100116" werden.
Dazu müsste ich den String in ein Integer umwandeln, 1 dazu addieren und dann alles wieder in einen String umwandeln.
Wie kann ich das machen?
Bin Euch jetzt schon für Eure Hilfe sehr dankbar!
Hauptstadtgrüße
vom Flip
Anzeige

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

Betreff
Benutzer
Anzeige
AW: String - Zahl (VBA)
23.07.2010 17:10:42
ransi
HAllo Flip
Mal ganz Hemdsärmelig:
Option Explicit

Public Sub test()
MsgBox machs(100115)
End Sub


Public Function machs(strText As String) As String
machs = Format(DateSerial(20 & Left(strText, 2), Mid(strText, 3, 2), Right(strText, 2)) + 1, "YYMMDD")
End Function



ransi
Anzeige
Integer wird wohl nicht reichen, Long...
23.07.2010 17:10:44
Luc:-?
…wäre wohl angesagt, Flip… ;-)
txtDatum = CStr(CDate(txtDatum) + 1)
Falls wieder erwarten doch noch 'ne Uhrzeit mitkommt, zwischen CStr und CDate noch die vbFkt Int einfügen.
Gruß Luc :-?
Gehe davon aus, das 15.01.10 vorliegt, nicht...
23.07.2010 18:25:14
aus,
…wirklich "100115", obwohl das eigentl auch fkt sollte, aber Ergebnis wäre dann wahrscheinl "16.01.10" (ggf bei entsprechender Formatierung)…
:-?
Anzeige
AW: String - Zahl (VBA)
23.07.2010 17:14:20
PeTeR
Hi Flip,
zerlege mit left, mid und right den string in 3 Bestanteile und wandle ihn mit datevalue in integer um.
Viel Erfolg
PeTeR
AW: String - Zahl (VBA)
23.07.2010 17:31:52
robert
Hi,
vielleicht so?
Sub tt()
Dim txtdatum
txtdatum = 100115
txtdatum = txtdatum * 1 + 1
End Sub
gruß
robert
Anzeige
AW: String - Zahl (VBA)
23.07.2010 17:55:14
Flip
Besten Dank Euch alle!
Sollte wohl klappen mit Euren Vorschlägen.
Schönes WE!
Hauptstadtgrüße
vom Flip
AW: String - Zahl (VBA)
24.07.2010 11:13:37
Erich
Hi,
die Vorschläge solltest du auch mal an etwas weniger trivialen Beispielen testen.
Probier mal 

Public Function machs(strText As String) As String
machs = Format(DateSerial(20 & Left(strText, 2), Mid(strText, 3, 2), _
Right(strText, 2)) + 1, "YYMMDD")
End Function
Sub abc()
Dim strT As String
strT = "100131"
MsgBox CStr(CDate(strT) + 1)
MsgBox strT * 1 + 1
MsgBox machs(strT)
MsgBox Format(CDate("20" & Format(strT, "00-00-00")) + 1, "yymmdd")
End Sub
Richtig sind wohl nur die letzten beiden Ergebnisse ("machs" hat Ransi gemacht).
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: String - Zahl (VBA)
24.07.2010 14:27:01
Der
Hallo Erich,
besten Dank für Deine Hilfe, Du/hr habt mich auf den richtigen Weg gebracht, wenn auch anders als ursprünglich gedacht. Habe mein Problem wohl komplizierter gemacht als es tatsächlich war. Ich brauchte den String gar nicht mehr als Datum sondern wirklich nur als String und Zahl. Mit Cstr und einer public Variablen (long) bin ich weiter gekommen. Die von Dir/Euch genannten Lösungen sind mit Sicherheit wesentlich besser, wenn man das Datum später noch braucht bzw. über die Monats oder Jahresgrenze geht. Ist bei mir aber nicht der Fall!
Noch einmal besten Dank!
Hauptstadtgrüße
vom Flip
Anzeige
;

Forumthreads zu verwandten Themen

Formatieren als Zahl/Währung im VBA
Nadine

Hallo,
ich habe jetzt folgende Formel im VBA erfasst;
Private Sub FldKurs_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(FldKurs) Then FldKurs = "" Else FldKurs = Format(FldKurs, "#,##0.00 $") End If End Sub
Diese soll bezwecken, dass in einem Textfeld nur eine Zahl st...
20.08.2008 14:28:00
Thread-ID: 1003209
2 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Anzeige
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
Anzeige
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Linien, wenn Text in Zeile - VBA
Wolfgang

Hallo,
in einer Arbeitsmappe hatte ich bislang bis ca. Zeile 6000 für die Spalten A-Q das Format für die Linien direkt über Zellenformat vorgegeben. Das macht die Datei wohl doch relativ fett.- Gäbe es eine Möglichkeit, evtl. über VBA zu steuern, dass ausschließlich die Zeilen, in denen au...
07.12.2008 09:58:34
Thread-ID: 1030803
2 Beiträge
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzeige
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige