Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsauswahl bei einem dynamischen Kalender

Forumthread: Datumsauswahl bei einem dynamischen Kalender

Datumsauswahl bei einem dynamischen Kalender
16.07.2024 08:58:04
Masteros
Hallo,
ich möchte bei meinem dynamischen Kalender einen Tag durch anklicken auswählen und dann das Datum in einem anderem Feld anzuzeigen.
Danke für eure Hilfe

OS
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsauswahl bei einem dynamischen Kalender
16.07.2024 09:16:58
Oberschlumpf
Hi,

kannst du bitte per Upload eine Excel-Bsp-Datei mit genügend Bsp-Daten in den richtigen Zeilen/Spalten zeigen?
Denn so, ohne Datei, wissen wir doch gar nicht, wann du welchen Zellwert wohin haben möchtest.

Ciao
Thorsten
AW: Datumsauswahl bei einem dynamischen Kalender
16.07.2024 11:15:55
Masteros
https://www.herber.de/bbs/user/171033.xlsm

Hi Thorsten,

der Tag soll im Kalender BE32-BK37 ausgewählt werden können und als Datum in Zelle AQ30 ausgegeben werden.
Danke
Anzeige
AW: Datumsauswahl bei einem dynamischen Kalender
16.07.2024 11:24:23
daniel
Hi
probier mal diesen Code im Modul des Tabellenblatts.
zum Auswählen mach den Doppelklick 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)



If Target.NumberFormat = "dd" Then

    Cancel = True

    Range("AQ30").Value = Target.Value 'feste Wertübername

    'Range("AQ30").Formula = "=" & Target.Address 'Dynamische Verknüpfung

End If

    

End Sub


Gruß Daniel
Anzeige
AW: Datumsauswahl bei einem dynamischen Kalender
16.07.2024 11:52:48
UweD
Hallo

- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Rechts das hier rein kopieren


Bei click auf eine Zelle in dem angegebenen Bereich wird das Datum in der Zielzelle angezeigt
...

LG UweD 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error GoTo Fehler

    Const APPNAME = "Worksheet_SelectionChange"

    

    'Beispiel

    Dim RNG As Range, ZielZ As Range

    Set RNG = Range("BE32:BK37")

    Set ZielZ = Range("AQ30")

    

    If Not Intersect(Target, RNG) Is Nothing Then 'Innnerhalb des Bereichs

        Application.EnableEvents = False

        ZielZ = Target

        Application.EnableEvents = True

    

    End If

    

    

    '*** Fehlerbehandlung

    Err.Clear

Fehler:

    Application.EnableEvents = True

    If Err.Number > 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _

        & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear

End Sub
Anzeige
AW: Datumsauswahl bei einem dynamischen Kalender
18.07.2024 06:58:14
Oberschlumpf
Hi,

danke für die Datei, auch wenn ich nicht mehr helfen konnte (andere waren schneller erfolgreich ;-) )

Aber ich möcht noch was loswerden!

Hut ab!
Dein Kalender sieht auch echt schick aus!

Ich bin zwar eher der VBA-Fan, aber deine reine Formel-Lösung ist echt klasse!
Weiter so!

Ciao
Thorsten
Anzeige
AW: Datumsauswahl bei einem dynamischen Kalender
18.07.2024 09:29:21
Masteros
Hallo Thorsten,

Leider funktioniert es im nicht mehr!
In meiner Arbeitsblatt Kopie die ich auch hochgeladen hatte lief es tadellos, aber dann im meiner richtigen Arbeitsmappe gar nicht mehr!

Fehler " End Sub erwartet"


Sub tag()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("BE32:BI37")) Is Nothing Then

Range("AQ36").Value = Target

End If

End Sub

End Sub


Ich dreh durch!
Gruß
Olaf
Anzeige
AW: Datumsauswahl bei einem dynamischen Kalender
18.07.2024 09:53:55
UweD
Hallo

1)
Erste und letzte Zeile müssen weg.

2)
Dann gehört das NICHT in ein Modul, sondern in den Codebereich der Tabelle.

So wie ich es dir in meinem Post beschrieben hatte.
Dort ist auch ein Verbesserung enthalten; weil: so wie du es jetzt verwendest, eine Schleife mehrmals durchläufts.


LG Uwe
Anzeige
AW: Datumsauswahl bei einem dynamischen Kalender
16.07.2024 11:14:09
daniel
Hi
dynamischer Kalender bedeutet für mich, dass sich der Kalender ändert, dass heißt dass in einer Zelle mal 1.1.2024 stehen kann und zu einem späteren Zeitpunkt der 2.3.2025 (oder irgendein anderes Datum).
möchtest du jetzt, wenn so etwas mit der Zelle 1.1.2024 gemacht hast und dann dieses Datum in dem Feld angezeigt wird, dass sich bei einer Änderung der Zelle auf den 2.3.2025 auch das Feld auf dieses Datum ändert oder soll das Feld dann weiterhin den 1.1.2024 anzeigen?

und was genau meinst du mit Feld? Ist das auch wieder eine normale Zelle, oder ist es ein Textfeld (Grafik) oder ist es noch ganz was anderes?

Gruß Daniel
Anzeige
AW: Datumsauswahl bei einem dynamischen Kalender
16.07.2024 11:15:37
ralf_b
ins blaue geschossen. 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)



  If Not Intersect(Target, Range("Zellbereich der kalenderdaten")) Is Nothing Then

     

     Range("DeineZielZelle").Value = Target

    

  End If

  

End Sub
Anzeige
AW: Datumsauswahl bei einem dynamischen Kalender
17.07.2024 19:27:19
Masteros
hallo ralf_b,
was ist passiert es funktioniert nicht mehr?
ich habe es in meine Arbeitskopie eingefügt und es hat sofort geklappt in meiner richtigen Seite leider nicht.
Fehlermeldung: Fehler beim Kompilieren End Sub erwartet.
was mach ich falsch?


OS
AW: Datumsauswahl bei einem dynamischen Kalender
18.07.2024 00:19:54
ralf_b
End Sub erwartet. heißt das es nicht gefunden wird und du es wahrscheinlich nicht mit reinkopiert hast.
Anzeige
AW: Datumsauswahl bei einem dynamischen Kalender
16.07.2024 13:40:46
Masteros
Danke an alle für die Hilfe!!
Danke ralf_b es Funktioniert!!


OS

Forumthreads zu verwandten Themen

Kalender in Zelle
Yannick

Hallo zusammen !
Ich habe folgende Frage : ich möchte gerne eine komplette Spalte so formatieren, dass in jeder Zelle kein Wert händisch eingetragen werden kann, sondern nur über einen button o.ä. ein kleiner Kalender aufpoppt in dem ich ein frei gewähltes datum anklicken kann welches dann...
06.11.2008 10:00:26
Thread-ID: 1022172
8 Beiträge
Kalender in UserForm
Thorsten

Hallo,
hat zufällig jemand ein Beispiel für einen Kalender, den man in ein UserForm übernehmen kann ? Wichtig wäre die Funktion, wenn man einen Tag anklickt, das dieser dann in eine TextBox übernommen wird.
Schöne Rest-Ostern
Thorsten
13.04.2009 14:57:17
Thread-ID: 1068467
3 Beiträge
Anzeige
Kalenderblatt in Userform
Jochen

Hallo EXEL Experten!
Habe mir in einer Userform einen Kalender gebastelt,
Es handelt sich um Textboxen,die ich verwendet habe.
Daten Auslesen klapp auch ,nur wie lautet der Code,der auch die Bedingte Formatierung der Ausgelesenen Zelle mit in die Textbox übernimmt.
Schriftfarbe...
23.05.2009 17:15:33
Thread-ID: 1076875
13 Beiträge
Anzeige
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Text aus Zelle in MsgBox einfügen.
Wolfgang

Hallo,
über eine Checkbox wird, sofern diese markiert wird, eine MsgBox angezeigt. Wie kann ich erreichen, dass aus einem Tabellenblatt "Steuerung" der Text aus Zelle E20 mit eingefügt werden kann?
MsgBox "Bitte folgende Hinweise beachten:"......... und dann der Text aus Zelle E20.
...
08.07.2009 21:08:52
Thread-ID: 1087280
5 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Anzeige
Unter letzte Zelle Inhalt einfügen
Karsten

Hallo,
Ich möchte mittels Makrobefehl unter der letzten Zelle mit Inhalt in Spalte A, D, G, J und M 00:00:00 eintragen lassen. Allerdings nur bis Reihe 10.
Besten Dank für eure Hilfe.
Gruß
Karsten
11.09.2009 09:41:21
Thread-ID: 1101913
8 Beiträge
Kalender in Userform
Stefanglander

Hallo Excelgemeinde,
ich arbeite mal wieder mit dem Kalendermodul von Hajo.
Dazu habe ich nun folgende Frage:
Ich habe die Userform1 die beim öffnen der Datei aufgerufen wird.
In der Userform habe ich eine Checkbox1. Wir diese angeklickt öffnet sich das Kalendermodul von Hajo.
11.10.2009 19:06:58
Thread-ID: 1108927
9 Beiträge
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Kalender in einer Zelle
Bernd

Hallo liebe Excelisten,
ich habe drei Zellen untereinander in die jeweils ein Datum aus einem Kalender eingetragen werden soll.
Dafür hatte ich das Steuerelement Kalender angedacht. Dazu muss ich aber drei mal den Kalender verwenden um über Linked Cell in die richtige Zelle zu schreiben...
15.12.2009 10:49:02
Thread-ID: 1123977
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige