Hallo,
ich möchte in einer selbstgestricken Exceldatei
einen Kalender in die Zellen einfügen, so dass ich das Datum per Mausklick einfügen kann. Die Datumsangaben sind leider nicht logisch fortfolgend.
Ich habe nun in Einfügen–> Objekt–> das Kalendersteuerelement 11.0 gefunden, kann es aber nicht in der Zelle verankern. Wenn ich nun ein Datum auswähle, wie kriege ich es in die Zelle???
Whats wrong?
ich möchte in einer selbstgestricken Exceldatei
einen Kalender in die Zellen einfügen, so dass ich das Datum
per Mausklick einfügen kann. Die Datumsangaben sind leider
nicht logisch fortfolgend.
Ich habe nun in Einfügen–> Objekt–> das
Kalendersteuerelement 11.0 gefunden, kann es aber nicht in der
Zelle verankern. Wenn ich nun ein Datum auswähle, wie kriege
ich es in die Zelle???
Hallo Rumburak,
du hast Excel 2003?
genau habe ich es nicht verstanden wie es da ablaufen soll.
Mit diesem Code wird bei Klick in den Kalender das entsprechende dateum in A1 eingetragen.
Private Sub Calendar1\_Click()
Range("A1").Value = Calendar1
End Sub
Gruß
Reinhard
Hallo Reinhard,
ja Excel 2003.
Ich hatte die Frage vorher schon sehr ausführlich gepostet, dann den Kalender in Einfügen>Objekte gefunden. Ich dachte ich hätte die Lösung und hab die Frage gelöscht.
Deswegen war es jetzt einwenig kurz.
Spalte B9:B9999 Datum im Format tt.mm.jjjj
Ich möchte beim anklicken der zellen in B jedesmal den Kalender bekommen, aus dem ich dann per Mausklick das gewünschte Datum einfügen kann.
Die folgenden Spalten werden alle per Mausklick mit Dropdownlisten ausgefüllt, so dass ich immer beim Datum in die Tasten greifen muss. Das ist lästig.
Der VBa Code passt so nicht. Reicht es wenn ich „A1“ durch „B9:B999“ ersetze?
Danke Rumburak
Hallo Rumburak,
ja Excel 2003.
okay. 11.0 deutet schon auf Excel2003 hin, das ist aber nicht 100 %ig sicher wenn man nicht nur eine Excelversion auf dem Rechner hat.
Spalte B9:B9999 Datum im Format tt.mm.jjjj
Ich möchte beim anklicken der zellen in B jedesmal den
Kalender bekommen, aus dem ich dann per Mausklick das
gewünschte Datum einfügen kann.
Das geht. Soll ich dir entsprechenden Code basteln?
Die folgenden Spalten werden alle per Mausklick mit
Dropdownlisten ausgefüllt, so dass ich immer beim Datum in die
Tasten greifen muss.
Sorry, du meinst, du hast schon Makros, die bei Mausklicks in Zellen neben B in diese Zellen jeweils eine Dropdownliste einfügen?
Dropdown ist mir zu vieldeutig, ich kenne da in Excel mehrere, meinst du Daten—Gültigkeit…?
Der VBa Code passt so nicht. Reicht es wenn ich „A1“ durch
„B9:B999“ ersetze?
Nein, war nur zu zeigen wie man durch Klick in den Kalender das angeklickte Datum in eine Zelle schreibt.
Du brauchst spezielleren Code, er soll ja nach Klick in Bx den Kalender anzeigen, nach Auswahl und Klick auf ein Datum soll er dieses in die Zelle Bx schreiben und den Kalender schließen/ausblenden.
Gruß
Reinhard
Hallo Reinhard
ja Excel 2003.
Das geht. Soll ich dir entsprechenden Code basteln?
DAs wäre sehr nett, allerdings wirft das dann schon die nächste frage auf, wie kriege ich den Code in die Datei?
Sorry, du meinst, du hast schon Makros,
Nein nicht in dieser Datei.
meinst du Daten—Gültigkeit…?
Ja, das meine ich. Ich habe in „z6:z20“ eine Liste mit Begriffen
hinterlegt. Wenn ich anklicke öffnet sich eine Liste und ich wähle den Begriff aus.
Du brauchst spezielleren Code, er soll ja nach Klick in Bx den
Kalender anzeigen, nach Auswahl und Klick auf ein Datum soll
er dieses in die Zelle Bx schreiben und den Kalender
schließen/ausblenden.
Genauso dachte ich mir das.
Alternativ kann ich Dir auch eine Vorlage meiner Datei senden.
Danke Rumburak
Hallo Rumburak,
Das geht. Soll ich dir entsprechenden Code basteln?
DAs wäre sehr nett, allerdings wirft das dann schon die
nächste frage auf, wie kriege ich den Code in die Datei?
Okay, dann schreibe ich das dazu.
Alternativ kann ich Dir auch eine Vorlage meiner Datei senden.
Das wäre super, denn dann reden wir über die exakt gleiche Sache, immer gut.
Nimm rapidshare ( FAQ:2606 ) oder einen anderen Hochlader.
Gruß
Reinhard
Hi Reinhard,
Nimm rapidshare ( FAQ:2606 ) oder einen anderen Hochlader.
http://rapidshare.com/files/410933058/BuchhaltungVor…
ich hoffe es geht
DAnke Rumburak
Nimm rapidshare ( FAQ:2606 ) oder einen anderen Hochlader.
Hallo Rumburak,
erst mal nur Blatt Konto 01.
Die anderen Blätter läßt du erstmal weg, die kommen später dran.
Ich empfehle, du markierst die Zeile 9, dann Fenster–Fenster fixieren.
Ist besser beim Scrollen.
Alt+F11, Doppelklick auf „Diese Arbeitsmappe“, dortrein den ersten Code.
Dann Doppelklick auf „Tabelle2(Konto 01)“, dortrein den zweiten Code kopieren.
In „Diese Arbeitsmappe“:
Option Explicit
'
Private Sub Workbook\_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Sh.Name Like "K\*" Then Exit Sub
Set Target = Intersect(Target, Range("B9:B9999"))
If Target Is Nothing Then
Worksheets(Sh.Name).Calendar1.Visible = False
Else
Worksheets(Sh.Name).Calendar1.Visible = Target.Cells.Count = 1
End If
End Sub
In „Konto 01“:
Option Explicit
'
Private Sub Calendar1\_Click()
ActiveCell.Value = Calendar1
Calendar1.Visible = False
End Sub
Hallo Reinhard,
erstmal danke.
Bin heute nicht dazu gekommen das zu probieren, mach das morgen und melde mich nochmal.
Rumburak
Danke Reinhard, Du hast mir
sehr geholfen.
Rumburak