Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsformat der ComboBox beim Kopieren ändern

Datumsformat der ComboBox beim Kopieren ändern
20.01.2009 13:30:12
Heinz
Hallo Leute
Ich habe in der Combobox1 das Format "DDD. DD MMMM YY"
Nur in E6 sollte das Format "DD MMMM YY"stehen.
Die Combobox darf das Format aber nicht abändern,
da ich es für weitere Berechnungen genau so brauche.
Könnte mir bitte jemand wieder weiterhelfen.
Danke Heinz
.Range("E6") = Me.ComboBox1.Value 'Datum "DD MMMM YY"
ComboBox1
.AddItem Format(rngCell, "DDD. DD MMMM YY")

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsformat der ComboBox beim Kopieren ändern
20.01.2009 16:00:53
fcs
Hallo Heinz,
dann darfst du nicht die Value-Eigenschaft der Combobox in die Zelle schreiben, sondern "nur" das eigenliche Datum ohne den Kurztext für den Wochentag.
Gruß
Franz

.Range("E6").Value = Mid(Me.ComboBox1, 5) 'Zelle E6 ist als Datum korrekt formatiert
'oder
.Range("E6").Value = "'" & Mid(Me.ComboBox1, 5) 'Zelle nicht als Datum formatiert


AW: Datumsformat der ComboBox beim Kopieren ändern
20.01.2009 17:23:00
Heinz
Hallo Franz
E6 ist richtig formatiert. Bekomme aber in E6 den Wert "Falsch" eingetragen.
Weisst du eventuell woran es liegt ?
Gruß
Heinz
'--------------Neu Wochenumbau W311
Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
Dim wksMaschine As Worksheet, bolDrucken As Boolean
If Not Me.CheckBox10 And Not Me.CheckBox11 And Not Me.CheckBox12 And Not Me.CheckBox13 And Not Me.CheckBox14 And Not Me.CheckBox15 And Not Me.CheckBox16 Then
MsgBox "Kein Linie ausgewählt!"
Exit Sub
End If
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte Datum wählen!"
Exit Sub
End If
Set wksMaschine = Worksheets("W311")
Application.ScreenUpdating = False
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte Datum wählen!"
End If
Worksheets("W311").Unprotect Password:="test"
Worksheets("W311").Visible = True
With wksMaschine
.Range("E6").Value = Mid(Me.ComboBox1, 5) 'Zelle E6 ist als Datum korrekt formatiert
'.Range("E6").Value = "'" & Mid(Me.ComboBox1, 5) 'Zelle nicht als Datum formatiert
'.Range("E6") = Me.ComboBox1.Value 'Datum
.Range("E6") = "DD.MM.YYYY" = Me.ComboBox1.Value 'Datum
.Range("E4") = "Artikel Bez.: " & Me.TextBox2 'Artikelbeschreibung
.Range("A4") = "Art. Nr.: " & Me.TextBox3 'ArtikelNummer
.Range("I4") = "Mündung: " & Me.TextBox4 'Mündung
TextBox57 = Format(Date, "DDD. DD MMMM YY")
If CheckBox11 = True Then
Worksheets("W311").PrintOut
Worksheets("W311").Protect Password:="test"
Worksheets("W311").Visible = xlVeryHidden
End If
End With
Anzeige
AW: Datumsformat der ComboBox beim Kopieren ändern
20.01.2009 17:38:00
Heinz
Hallo Franz
Jetzt hat es funktioniert. Warum vorher nicht ?
Recht herzlichen Dank.
Gruß
Heinz
.Range("E6").Value = Mid(Me.ComboBox1, 5) 'Zelle E6 ist als Datum korrekt formatiert
AW: Datumsformat der ComboBox beim Kopieren ändern
20.01.2009 17:54:20
Heinz
Hallo Franz
Genau habe diese Zeile gelöscht.
Eine allerletzte Frage noch.
Könnte man die ComboBox1 wenn ich die UF aufrufe, mit dem Datum von heute gleich füllen.
Danke Heinz
AW: Datumsformat der ComboBox beim Kopieren ändern
21.01.2009 11:17:00
fcs
Hallo Heinz,
das muss du in der Initialize oder Activate-prozedur des UF machen, nach dem Abschnitt, in dem mit AddItem die Combobox mit Auswahldaten gefüllt wurde.
Me.Combox1.Value = Format(Date, "DDD. DD MMMM YY")
Je nach Einstellung der Combox (match required ?) muss allerdings auch sichergestellt sein, dass das aktuelle Datum auch in der Auswahlliste vorhandne ist.
Gruß
Franz
Anzeige
AW: Datumsformat der ComboBox beim Kopieren ändern
21.01.2009 15:17:00
Heinz
Hallo Franz
Funktioniert SUPER - DANKE

muss allerdings auch sichergestellt sein, dass das aktuelle Datum auch in der Auswahlliste vorhanden ist.


Ja das Heutige Datum ist immer in der Auswahlliste.
Sooooo jetzt bin ich glaube fertig mit diesem Pogramm - DANK deiner GROßARTIGEN Hilfe.
Bis zum nächstenmal
Gruß
Heinz

AW: Datumsformat der ComboBox beim Kopieren ändern
20.01.2009 17:42:17
fcs
Hallo Heinz,
die Zeile
.Range("E6") = "DD.MM.YYYY" = Me.ComboBox1.Value 'Datum
ist zu viel.
Sie überschreibt das vorher in E6 eingetragene Datum wieder.
Gruß
Franz
Anzeige

300 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
ans Tabellenende mit Leerzeilen kopieren
Robert-M

Grüß´ Euch im Forum,
in einer Tabelle „MASTER“ will ich die Daten anderer Arbeitsmappen „DETAIL 1, -2, -3“ untereinander auflisten.
Der Vorgang ist simpel:
per Makro
kopiere ich nacheinander jeweils den Inhalt von „DETAIL 1 ...“,
gehe in die Tabelle MASTER,
suche hier di...
08.09.2008 21:49:00
Thread-ID: 1008257
10 Beiträge
Tabellenblatt mit Schleife mehrfach kopieren
Markus

Hallo zusammen,
ich möchte das erste Tabellenblatt mehrfach kopieren und jeder Kopie einen anderen Namen geben. Die Namen, die vergeben werden sollen, befinden sich im ersten Tabellenblatt (Spalte Z, ab Zeile 1). Derzeit sind es 10, es kommen aber leider immer welche hinzu bzw. die Namen än...
23.09.2008 21:07:55
Thread-ID: 1011888
5 Beiträge
Anzeige
Wochentag Formatierung mit TTT wird nicht gezählt
Rolf

Hallo Fachleute,
ich habe einen Dienstplan in Excel bei dem die Monate auf je einem Tabellenblatt stehen.
Also wie ein Kalender. In einem anderen Tabellenblatt werden verschiedene Auswertungen mittels Funktionen oder einfacher Formeln erstellt.
So z.B: sollen bestimmte Dienste di...
14.12.2008 17:15:00
Thread-ID: 1032800
11 Beiträge
Tabelle mit eingebetteten Makro kopieren
köhler

Hallo!
Wenn ich in der Tabelle ein Makro eingebettet habe, dann wird beim Kopieren zu einer neuen Datei das Makro nicht mehr mit dem Button angesteuert. Das Makro wurde mitkopiert aber der Button hat dann ein Bezug auf die "alte" Datei, von der ich das Tabellenblatt kopiert habe.
Wie k...
08.01.2009 12:33:58
Thread-ID: 1037865
6 Beiträge
Inhalt Textfelder mit Formatierung kopieren
Tobias

Hi zusammen,
ich hab folgenes Problem. Ich habe 2 Textfelder (NICHT aus den Steuerelementen) und möchte den Inhalt des einen Textfeldes in das andere kopieren wobei jedoch die Formatierung beibehalten wird. Ich habe schon alles mögliche versucht (siehe Anhang) aber es funktioniert leider ni...
10.02.2009 11:41:00
Thread-ID: 1048975
10 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
Information von Zelle wird nicht erkannt
Zelle

https://www.herber.de/bbs/user/60476.xls
Hey Leute
eigentlich habe ich hier ein gutes program aber in Ausgang gibt es ein problem ich denke es ist ganz klein.
jedoch für mich risig da ich es nicht lösen kann, siehe beispiel.
vielleicht kann mir jemand helfen, bin aber kein prof...
19.03.2009 18:25:55
Thread-ID: 1061948
9 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
7
15
9
4
3
10
5
9
7
8
4
2
4
4
3
7
3
1
5
2
6
2
1
1
2