Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum Uhrzeit Format

Datum Uhrzeit Format
14.11.2014 16:40:48
Lars
Brauche Hilfe bei folgendem Makro!
Ich möchte statt dem Datum, Datum mit Uhrzeit übertragen. Am liebsten im folgenden Format: "yyyy-mm-dd-hh-mm"
Datum und Uhrzeit stehen somit in den gleichen Zellen.
Weis jedoch nicht wie das Makro abändern muss.
Mein Makro:
Private Sub CommandButton1_Click()
Dim dat As Long ' Startdatum
Dim dat2 As Long ' Zieldatum
Dim varZei As Variant ' Zeile Startdatum
Dim varZei2 As Variant ' Zeile Zieldatum
Dim varUebArr As Variant ' Array für Daten
Dim varTitArr As Variant ' Array für Überschriften
dat = CDate(TextBox1.Text) ' Startdatum
dat2 = CDate(TextBox2.Text) ' Zieldatum
varZei = Application.Match(dat, Tabelle1.Columns(1), 0) ' Startzeile für Übertrag ermitteln
varZei2 = Application.Match(dat2 + 1, Tabelle1.Columns(1), 0) ' Zielzeile für übertrag ermitteln
varTitArr = Tabelle1.Range("A1:G1").Value ' Überschriften einlesen
varUebArr = Tabelle1.Range("A" & varZei, "G" & varZei2).Value ' Daten in Array schreiben
With Tabelle2.Range("A1:G1") ' Überschriften
.Value = varTitArr ' Überschriften in Tabelle
.Range("A1:G1").Font.Bold = True ' Schriftschnitt Fett
.VerticalAlignment = xlCenter ' Vertikal zentrieren
.WrapText = True ' Zeilenumbruch aktivieren
End With ' Ende Überschriften
Tabelle2.Range("A2:G" & UBound(varUebArr)) = varUebArr ' Daten eintragen
Tabelle2.Range("A2:A" & UBound(varUebArr)).NumberFormat = "m/d/yyyy"
Tabelle2.Range("B2:B" & UBound(varUebArr)).Font.Color = Tabelle1.Range("B2").Font.Color
Tabelle2.Range("C2:C" & UBound(varUebArr)).Font.Color = Tabelle1.Range("C2").Font.Color
Tabelle2.Range("D2:D" & UBound(varUebArr)).Font.Color = Tabelle1.Range("D2").Font.Color
Tabelle2.Range("E2:E" & UBound(varUebArr)).Font.Color = Tabelle1.Range("E2").Font.Color
Tabelle2.Range("F2:F" & UBound(varUebArr)).Font.Color = Tabelle1.Range("F2").Font.Color
Tabelle2.Range("G2:G" & UBound(varUebArr)).Font.Color = Tabelle1.Range("G2").Font.Color

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum Uhrzeit Format
14.11.2014 17:47:37
Matze
Hallo Lars,
z B.: in die aktive Zelle als Formel eintragen
ActiveCell.FormulaR1C1 = "=NOW()"
Gruß Matze

AW: Datum Uhrzeit Format
14.11.2014 21:58:57
Lars
Hallo Matze
Kannst du mir noch ein wenig helfen! Wo im Code muss ich das eintragen?

AW: Datum Uhrzeit Format
14.11.2014 22:52:12
Matze
Hallo Lars,
weis nicht ob ich weiter helfen kann.
Ehrlich gesagt ist dein bisheriger code ein wenig verwirrend für mich.
Kannst du die Datei einstellen damit man erkennen kann was wann passieren soll?
Oder mach eine Musterdatei mit dem Aufbau und wie das Ergebnis aussehen soll.
Gruß Matze
Ps eventuell muss einer der Profis hier weitermachen

Anzeige
AW: Datum Uhrzeit Format
14.11.2014 23:01:20
Lars
Ok!
Werde morgen mal schauen!
Besten Dank schon mal

AW: Datum Uhrzeit Format
15.11.2014 13:07:18
Mullit
Hallo,
sollte so funktionieren: 
'...
Tabelle2.Range("A2:G" & UBound(varUebArr)) = varUebArr ' Daten eintragen
Tabelle2.Range("A2:A" & UBound(varUebArr)).NumberFormat = "m/d/yyyy h:mm"
Tabelle2.Range("B2:B" & UBound(varUebArr)).Font.Color = Tabelle1.Range("B2").Font.Color
'...

Gruß,

AW: Datum Uhrzeit Format
15.11.2014 18:03:23
sigmund
Hallo Mullit
Hast mir schon mal sehr geholfen.
Wie bringe ich es aber fertig, das in die Textboxen1 und 2 auch nur das "m/d/yyyy h:mm" eingetragen werden kann?

Anzeige
AW: Datum Uhrzeit Format
15.11.2014 22:30:59
Matze
Hallo Sigmund oder Lars (watt denn nu?)
wolltest du nicht deine Datei hier einbringen bzw eine Musterdatei?
vielleicht so? Aber irgendwie rate ich nur.
Format(TextBox1.Value, "dd.mm.yyyy hh:mm")
Gruß Matze

AW: Datum Uhrzeit Format
16.11.2014 16:03:15
Mullit
Hallo Sigmund,
um das ganze in einer Textbox des Tabellenblattes abzufragen, das hier für beide Boxen in das Klassenmodul der Tabelle einfügen und beim Eintrag in die Box immer ein Leerzeichen zwischen Datum und Uhrzeit belassen, sonst müsste man noch genauer abfragen... 
Option Explicit
Private Sub TextBox1_LostFocus()
If Not (IsDate(TextBox1) And TextBox1 = Format(TextBox1, "dd/mm/yyyy hh:mm")) Then _
TextBox1 = vbNullString
End Sub

Dann in Deinem Hauptprogramm noch ergänzen: 
Private Sub CommandButton1_Click()
Dim dat As Long ' Startdatum
Dim dat2 As Long ' Zieldatum
Dim varZei As Variant ' Zeile Startdatum
Dim varZei2 As Variant ' Zeile Zieldatum
Dim varUebArr As Variant ' Array für Daten
Dim varTitArr As Variant ' Array für Überschriften
If IsDate(TextBox1) And IsDate(TextBox2) Then
    dat = CDate(TextBox1.Text) ' Startdatum
    dat2 = CDate(TextBox2.Text) ' Zieldatum
    varZei = Application.Match(dat, Tabelle1.Columns(1), 0) ' Startzeile für Übertrag ermitteln
    varZei2 = Application.Match(dat2 + 1, Tabelle1.Columns(1), 0) ' Zielzeile für übertrag ermitteln
    varTitArr = Tabelle1.Range("A1:G1").Value ' Überschriften einlesen
    varUebArr = Tabelle1.Range("A" & varZei, "G" & varZei2).Value ' Daten in Array schreiben
    With Tabelle2.Range("A1:G1") ' Überschriften
        .Value = varTitArr ' Überschriften in Tabelle
        .Range("A1:G1").Font.Bold = True ' Schriftschnitt Fett
        .VerticalAlignment = xlCenter ' Vertikal zentrieren
        .WrapText = True ' Zeilenumbruch aktivieren
    End With ' Ende Überschriften
    Tabelle2.Range("A2:G" & UBound(varUebArr)) = varUebArr ' Daten eintragen
    Tabelle2.Range("A2:A" & UBound(varUebArr)).NumberFormat = "m/d/yyyy h:mm"
    Tabelle2.Range("B2:B" & UBound(varUebArr)).Font.Color = Tabelle1.Range("B2").Font.Color
    Tabelle2.Range("C2:C" & UBound(varUebArr)).Font.Color = Tabelle1.Range("C2").Font.Color
    Tabelle2.Range("D2:D" & UBound(varUebArr)).Font.Color = Tabelle1.Range("D2").Font.Color
    Tabelle2.Range("E2:E" & UBound(varUebArr)).Font.Color = Tabelle1.Range("E2").Font.Color
    Tabelle2.Range("F2:F" & UBound(varUebArr)).Font.Color = Tabelle1.Range("F2").Font.Color
    Tabelle2.Range("G2:G" & UBound(varUebArr)).Font.Color = Tabelle1.Range("G2").Font.Color
    '...
End If
End Sub

Eine Alternative wäre vielleicht auch noch das DateTimePicker Control...
Gruß, Mullit

Anzeige
AW: Datum Uhrzeit Format
16.11.2014 20:20:52
sigmund
https://www.herber.de/bbs/user/93806.zip
Hallo meine beiden Helfer
Habe die Datei hochgeladen (ich hoffe ihr könnt sie öffnen)
Ich möchte einfach nur folgendes tun:
Bei Testbox1 Startdatum folgendes eintragen: z.B. 02.05.2014 08:00
Bei Testbox2 enddatum folgendes eintragen: z.B. 03.05.2014 08:00
Aktuell überträgt mein Makro nur das Datum ohne Berücksichtigung der Zeit in Tabelle 2

AW: Datum Uhrzeit Format
17.11.2014 15:57:26
Mullit
Hallo Sigmund,
hat ich Dir doch im Prinzip schon geschrieben :
Du mußt das Zahlenformat sowohl in der Ausgangstabelle (Benutzerdefiniert TT.MM.JJJJ hh:mm), als auch im Code für die Zieltabelle anpassen.
Um zu verhindern, daß verkehrte Werte eingetragen werden, kannst Du die beiden Ereignisprozeduren ergänzen, in der Userform bietet sich da das Exit_Ereignis an: 
Option Explicit

Private Sub CommandButton1_Click()
    Dim dat As Double                                                       ' Startdatum
    Dim dat2 As Double                                                      ' Zieldatum
    Dim varZei As Variant                                                   ' Zeile Startdatum
    Dim varZei2 As Variant                                                  ' Zeile Zieldatum
    Dim varUebArr As Variant                                                ' Array für Daten
    Dim varTitArr As Variant                                                ' Array für Überschriften
    If IsDate(TextBox1) And IsDate(TextBox2) Then
        dat = CDate(TextBox1.Text)                                          ' Startdatum
        dat2 = CDate(TextBox2.Text)                                         ' Zieldatum
        With Application
            varZei = .Match(dat, Tabelle1.Columns(1), 0)                    ' Startzeile für Übertrag ermitteln
            varZei2 = .Match(dat2, Tabelle1.Columns(1), 0)                  ' Zielzeile für übertrag ermitteln
        End With
        With Tabelle1
            varTitArr = .Range("A1:G1").Value                               ' Überschriften einlesen
            varUebArr = .Range("A" & varZei, "G" & varZei2).Value           ' Daten in Array schreiben
        End With
        With Tabelle2
            .UsedRange.ClearContents
            With .Range("A1:G1")                                            ' Überschriften
                .Value = varTitArr                                          ' Überschriften in Tabelle
                .Font.Bold = True                                           ' Schriftschnitt Fett
                .VerticalAlignment = xlCenter                               ' Vertikal zentrieren
                .WrapText = True                                            ' Zeilenumbruch aktivieren
            End With                                                        ' Ende Überschriften
            .Range("A2:G" & UBound(varUebArr) + 1) = varUebArr              ' Daten eintragen
            .Range("A2:A" & UBound(varUebArr) + 1).NumberFormat = "m/d/yyyy h:mm"
            .Range("B2:B" & UBound(varUebArr) + 1).Font.Color = Tabelle1.Range("B2").Font.Color
            .Range("C2:C" & UBound(varUebArr) + 1).Font.Color = Tabelle1.Range("C2").Font.Color
            .Range("D2:D" & UBound(varUebArr) + 1).Font.Color = Tabelle1.Range("D2").Font.Color
            .Range("E2:E" & UBound(varUebArr) + 1).Font.Color = Tabelle1.Range("E2").Font.Color
            .Range("F2:F" & UBound(varUebArr) + 1).Font.Color = Tabelle1.Range("F2").Font.Color
            .Range("G2:G" & UBound(varUebArr) + 1).Font.Color = Tabelle1.Range("G2").Font.Color
        End With
        
        Unload Me
        
    End If
End Sub

Private Sub CommandButton2_Click()
    Tabelle1.Columns("A:G").Copy Destination:=Tabelle2.Cells(1, 1)
    Unload Me
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If Not (IsDate(TextBox1) And TextBox1 = Format(TextBox1, "dd/mm/yyyy hh:mm")) Then
   TextBox1 = vbNullString
   Cancel = True
 End If
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not (IsDate(TextBox2) And TextBox2 = Format(TextBox2, "dd/mm/yyyy hh:mm")) Then
   TextBox2 = vbNullString
   Cancel = True
 End If
End Sub

Gruß, Mullit

Anzeige
AW: Datum Uhrzeit Format
17.11.2014 19:41:21
sigmund
Hallo Mullit
Vielen Dank für deine Hilfe und Geduld mit mir.
Genau so habe ich mir das vorgestellt.
Danke

300 Forumthreads zu ähnlichen Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 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
Anzeige
Formatierung Daten in Prozent fortlaufend
Wolfgang

Guten Morgen,
ich möchte unter einer Tabellenspalte mit Daten von z.B. (Spalte A =5, Spalte B =17, Spalte C =32.... bis Spalte X = 790) eine Formatierung bzw. Formel erstellen die mir automatisch, unter jeder Spalte, die jeweiligen Prozente der oberen Zahlen anzeigt
- wobei unter Spalt...
21.11.2008 07:54:55
Thread-ID: 1026590
7 Beiträge
Datenquelle eines Diagramms mit VBA verändern
mgr

hallo, ihr excel-götter!
leider hab ich im archiv nichts entsprechendes gefunden und werfe mein anliegen daher hier ein.
ich habe eine datei, die daten statistisch aufbereitet, unter anderem in form eines torten-diagramms.
dieses tortendiagramm wird mit daten befüllt, die durch eine...
21.11.2008 11:45:45
Thread-ID: 1026676
4 Beiträge
Produktdaten aus einer Liste mit VBA verwenden
Niklas

Hello Leute!
Ich arbeite gerade an einem Programm, welches mit Excel VBA programmiert wurde!
Das Programm dient dem Berechnen einer Übertemperatur in Schaltschränken!
Jetzt ist es notwendig, dass man verschiedene Einsätze ( Die Dinge die im Schaltschrank drinnen sind) auswählen kann...
03.12.2008 14:37:00
Thread-ID: 1029841
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
5
1
2
1
6
3
1
12
2
19
4
3
1
6
3
4
1
3
11
2
4
1
6
1