Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datums-Format in VBA-Code

Forumthread: Datums-Format in VBA-Code

Datums-Format in VBA-Code
Ingo
Guten Tach :)
Ich nutze in einem VBA-Code folgendes:
Print #iFile, Datum & "." & Format(Date, "mm.yyyy")
Nun wird als Ergebnis heute am 01.04.2004 folgendes ausgegeben:
1.04.2004
Ich hätte aber bei Tagen, die nur aus einer Ziffer bestehen (1-9),
gerne noch die Null davor. So dass da dann eben folgendes ausgegeben wird:
01.04.2004
Ist das machbar ?
Und wenn ja, wie ?
Da ich selber leider keine große Ahnung von VBA habe,
würde ich mich riesig freuen, wenn mir da jemand von Euch helfen könntet :)
Gruß
Ingo
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Datums-Format in VBA-Code
ChrisL
Hi Ingo
"Datum" ist eine Variabel? Von welchem Typ?
Vielleicht... Format(Datum, "00")?
Gruss
Chris
AW: Datums-Format in VBA-Code
Ingo
Lieber Chris
Public Datum As String
Meintest Du das ?
AW: Datums-Format in VBA-Code
ChrisL
Hi Ingo
Wieso Datum As String. Ist es nicht eine Zahl zwischen 1-31?
Falls ja, dann solltest du als Byte deklarieren und via Format 2-stellig machen.
Gruss
Chris
Anzeige
AW: Datums-Format in VBA-Code
Ingo
Lieber Chris
Vielen lieben Dank erstmal für Deine Hilfe.
Aber leider bin ich ein ziemlicher VBA-Laie :)
Kannst Du mir denn da nochmal helfen ?
Bisher steht da folgendes:
Public Datum As String
Print #iFile, Datum & "." & Format(Date, "mm.yyyy")
Wie müsste es denn nach den von Dir vorgeschlagenen Änderungen ganz genau heissen ?
Gruß
Ingo
Anzeige
AW: Datums-Format in VBA-Code
ChrisL
Hi Ingo
Nochmals, ist Variable Datum eine Zahl von 1-31?
Public Datum As Byte
Print #iFile, Format(Datum, "00") & "." & Format(Date, "mm.yyyy")
Gruss
Chris
DANKE ... genau so klappts ! ... (o.T.)
01.04.2004 17:03:55
Ingo
o.T.
Doch noch ein kleines Problem
Ingo
Lieber Chris
Deine Änderung klappt soweit wunderbar.
Nur habe ich in meiner Arbeitsmappe noch ein UserForm.
Und das will nun nicht mehr richtig funktionieren.
IM Code des UserForm steht unter anderem:

Private Sub CommandButton2_Click()
Artikel_Zurück = TextBox1
Artikel_Vor = TextBox2
Vorrätig = CheckBox1
Einzelstück = CheckBox2
Limitiert = TextBox4
Datum = TextBox5
Unload Me
End Sub

Kann es vielleicht da auch an dem "Datum = TextBox5" liegen ?
Weil ich doch nun die Variable Datum als Byte deklariert habe ?
Oder ist das alles eher Unsinn ?
Leider habe ich ja von VBA nicht viel Ahnung.
Kannst Du mir doch nochmal helfen ?
Würde mich riesig darüber freuen :)
Gruß
Ingo
Anzeige
AW: Doch noch ein kleines Problem
ChrisL
Hi Ingo
Textboxen sind Strings und die Variable hast du inzwischen als Byte deklariert.
Du musst also die Textbox erst als Byte umdeklarieren...
Datum = CByte(TextBox)
..dann sollte es gehen.
Allerdings läuft das Programm in einen Fehler, wenn jemand z.B. ein Text eingibt. Darum brauchst du eine Fehlerroutine, die in etwa so aussehen könnte...
Option Explicit

Private Sub CommandButton1_Click()
Dim Datum As Byte
If IsNumeric(TextBox1) = False Then
MsgBox "TextBox muss nummerisch sein."
TextBox1 = ""
TextBox1.SetFocus
Exit Sub
End If
If TextBox1 = "" Then
MsgBox "Es wurde kein Wert eingetragen."
TextBox1.SetFocus
Exit Sub
End If
On Error Resume Next
Datum = CByte(TextBox1)
If Err.Number = 6 Or CByte(TextBox1) > 31 Or CByte(TextBox1) < 1 Then
MsgBox "Fehler Ganzzahl zwischen 1-31 gesucht."
TextBox1 = ""
TextBox1.SetFocus
Exit Sub
End If
End Sub

Gruss
Chris
Anzeige
;

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Fehler in VBA-Code?
David

Und nochmal Hallo.
Und schon wieder mit einem sehr "mysteriösen" Fehler:
Option Explicit Sub test() Dim zeile, i As Long Dim wks As Worksheet Dim wkb As Workbook Dim quelle As String For Each wkb In Workbooks If Right(wkb.Name, 4) = ".csv" And InStr(wkb.Name, "Pliste") > 0 Then que...
22.09.2008 12:14:00
Thread-ID: 1011440
5 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
Kleines VBA Code Problem
maxx_1985

Hi Leute
Beim Ausfuehren dieses Codes dauert es eine Ewigkeit bis Excel fertig ist. Und es ruckelt ebenso ne Ewigkeit. Wie kann man das anders loesen? hat jemand ne idee?
danke
Sub Step2() 'delete zeros Dim i As Long For i = Cells(Rows.Count, 9).End(xlUp).Row To 1 Step -1 If Cells...
26.11.2008 20:42:00
Thread-ID: 1028150
8 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