Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gültikkeit Datumsformat in meheren Sheets

Forumthread: Gültikkeit Datumsformat in meheren Sheets

Gültikkeit Datumsformat in meheren Sheets
Matze,Matthias
Hallo @All,
ich würde gerne eine VBA Lösung von euch Spezialisten in mein Vorhaben einbauen:
Ausgangspunkt ist die Zelle J8 im Sheet "SETUP" deren Inhalt die Jahreszahl enthalten soll.
Für die Sheets Januar bis Dezember möchte ich im Bereich $B$10-$B$40 eine Gültikeit vom 1. bis letzten Tag des jeweiligen Monatsblattes bekommen.
Es könnte auch eine Hilfstabelle eingebaut werden um eventuell mit Dropdowns zu arbeiten.
Bin für jeden Ansatz- oder Lösungsweg zu haben :-) .
Dank vorab ,..
LG Matze
Anzeige
AW: Gültikkeit Datumsformat in meheren Sheets
13.07.2012 22:25:13
Josef

Hallo Matthias,
ins Klassenmodul von "SETUP"
' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lngIndex As Long, lngDay As Long
  Dim strTmp As String
  
  If Target.Address(0, 0) = "J8" Then
    If IsNumeric(Target) Then
      For lngIndex = 1 To 12
        strTmp = ""
        For lngDay = 1 To Day(DateSerial(Target, lngIndex + 1, 0))
          strTmp = strTmp & Format(DateSerial(Target, lngIndex, lngDay), "dd.MM.yyyy") & ","
        Next
        With Sheets(Format(DateSerial(1, lngIndex, 1), "MMMM")).Range("B10:B40").Validation
          .Delete
          .Add Type:=xlValidateList, _
            AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, _
            Formula1:=Left(strTmp, Len(strTmp) - 1)
        End With
      Next
    End If
  End If
  
End Sub



Die Listen werden bei einer Eingabe in J8 (SETUP) erstellt.
« Gruß Sepp »

Anzeige
@Josef - - bei Jahreswechsel will er nicht
13.07.2012 22:40:46
Matze,Matthias
Hallo Josef,
besten und herzlichen Dank für die Codezeilen.
...leider ist bei Jahreswechesl noch ein Wurm drin.
With Sheets(Format(DateSerial(1, lngIndex, 1), "MMMM")).Range("B10:B40").Validation
in dieser Zeile bleibt er stehen.
Matze
AW: @Josef - - bei Jahreswechsel will er nicht
13.07.2012 22:46:10
Josef

Hallo Matthias,
"in dieser Zeile bleibt er stehen."
Das ist keine gute Fehlerbeschreibung, wie lautet die Fehlermeldung?
Wahrscheinlich heißen deine Blätter dann nicht "Januar", "Februar", ...

« Gruß Sepp »

Anzeige
AW: @Josef - - bei Jahreswechsel will er nicht
13.07.2012 23:02:44
Matze,Matthias
Hallo josef,
laufzeitfehler 9 : Index ausserhalb des Bereichs:
Die Blätter sind Januar, Februar; Maerz,.... schon OK so.
lngindex hat den Wert 3
kann es sein das
For lngIndex = 1 To 12 'für die Sheets ist ?
For lngIndex = 2 To sheets.count ' wäre dies nicht besser da SETUP das erste Blatt ist?
Leider kann ich keine Musterdatei hochladen da will er die ExcelEndung nicht
Matze
Anzeige
AW: @Josef - - bei Jahreswechsel will er nicht
13.07.2012 23:17:28
Josef

Hallo Matthias,
März und Maerz ist aber wohl ein Unterschied!
' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lngIndex As Long, lngDay As Long
  Dim strTmp As String
  
  If Target.Address(0, 0) = "J8" Then
    If IsNumeric(Target) Then
      For lngIndex = 1 To 12
        strTmp = ""
        For lngDay = 1 To Day(DateSerial(Target, lngIndex + 1, 0))
          strTmp = strTmp & Format(DateSerial(Target, lngIndex, lngDay), "dd.MM.yyyy") & ","
        Next
        With Sheets(Replace(Format(DateSerial(1, lngIndex, 1), "MMMM"), "ä", "ae")).Range("B10:B40").Validation
          .Delete
          .Add Type:=xlValidateList, _
            AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, _
            Formula1:=Left(strTmp, Len(strTmp) - 1)
        End With
      Next
    End If
  End If
  
End Sub


Und 1 to 12 stimmt schon, ist nicht der Tabellenindex sondern der Index für die Monte 1 bis 12.

« Gruß Sepp »

Anzeige
Asche auf mein Haupt - Lol..
13.07.2012 23:24:04
Matze,Matthias
Hallo Josef,
boah wie blind kann man sein,...Ok das war der Verursacher.
Klasse und besten Dank
Lg Matze
AW: @Josef - - bei Jahreswechsel will er nicht
13.07.2012 23:06:11
Matze,Matthias
noch etwas :
Nur im Blatt Januar und Februar sind die Gültigkeiten aktiv, ab Maerz nix.
;

Forumthreads zu verwandten Themen

Datumsformat in Userform
martin

Hallo,
ich habe eine ganz einfache Userform mit zwei Textboxen über die möchte ich jeweils ein Datum in
2 vorgegebene Zellen in der Tabelle "Start" eingeben. Das klappt auch gut.
ABER leider erkennt Excel nach dem Eintrag die beiden Werte nicht als Datum - wie muss ich was formatier...
18.08.2008 15:02:00
Thread-ID: 1002618
5 Beiträge
Format in Textbox
Richard


Hallo,
folgendes Beispiel zur einsicht. Im Grunde genommen, ist es vom Aussehen gesehen eigentlich genauso, wie ich es mir vorstelle.
Die Sache hat bestimmt mehrere, aber für mich nur einen sehr entscheidenden Haken. Ich kann die Backspace-Taste nicht nutzten! - Klar wie denn au...
20.10.2008 10:10:49
Thread-ID: 1017588
3 Beiträge
Währungsformat in Zellen Vol.2
Henner

Hi,
leider bekomme ich keine Antwort auf mein Post:
https://www.herber.de/forum/archiv/1016to1020/t1018098.htm
Ich gehe davon aus, dass ich das Problem einfach nicht so gut beschreiben kann. Habe das ganze Szenario jetzt nochmal ganz vereinfacht nachgebaut, hoffe ich komme damit nu...
21.10.2008 21:58:00
Thread-ID: 1018178
5 Beiträge
Format individuell vergeben
Markus

Hallo zusammen,
ich lese aus einer Hostanwendung Daten aus, ohne diese zu formatieren. Bislang hatte ich in der einzulesenden Zelle das Format "Währung" selbst hinterlegt.
Nun kommen aber plötzlich auch richtige Zahlen, die natürlich nicht als Währung dargestellt werden sollen.
Man...
10.11.2008 08:32:00
Thread-ID: 1023120
3 Beiträge
Zellenformat in Formeln
Larass

Hallo,
ich möchte in einer Zelle links von einem Ergebnis einen string anzeigen, jedoch nur wenn auch ein ergebnis in der Zelle steht.
Konkret habe ich z.B. als Ergebnis eine Spannung Sigma,st
Sobald ich eine Formel eingebe wird aber die Formatierung zerschossen, sprich das Sigma wi...
16.12.2008 16:42:12
Thread-ID: 1033346
6 Beiträge
Format in Combobox
Kat


Hi,
in einer Combobox habe ich eine Auswahl von Stunden.
Nun hätte ich aber gerne die formatierung der Box so,
das in der Box 12:45 Std angezeigt werden.
Hier die bisherige Formatierung im Stundenformat
ComboBox4 = Format(ComboBox4, "hh:mm")
Wie muß nun diese ergänz...
24.01.2009 23:34:54
Thread-ID: 1043486
3 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Anzeige
Zahlenformat in abhängigkeit von referenzzelle
referenzzelle

Hallo,
ich habe in einem dropdownmenü 3 währungen
kann ich in abhängigkeit der gewählten währung das zahlenformat in einer anderen zelle bestimmen?
also, wenn z.B. im dropdown EUR gewählt ist, dann soll das zahlenformat €0 sein
bei GBP soll es £0 sein usw.
Jemand eine Idee?<...
16.03.2009 17:04:28
Thread-ID: 1060836
6 Beiträge
Datumsformat in der Maske bei Aufruf über VBA
Wusino

Hallo miteinander,
da meine Suche in ettlichen Büchern und Foren sehr frustrierend war, wende ich mich nun doch an Euch.
Ich habe ein kleines Skript, das beim Öffnen des Dokuments auf das Datenblatt Uebersicht springt und beim Wählen eines anderen Datenblatts die Maske anzeigt. Das Prob...
18.04.2009 09:42:39
Thread-ID: 1069435
2 Beiträge
Format in Formel
Jonathan

Hallo zusammen!
Ich habe eine ganz kurze Frage:
Wie kann ich das Format des Wertes in A1 in folgender Formel angeben:
=VERKETTEN("Zahlung in Höhe von ";A1;" erledigt")
Ich hatte es mir so gedacht:
=VERKETTEN("Zahlung in Höhe von ";FORMAT(A1;#.##0,00);" erledigt")
aber da...
18.05.2009 10:00:37
Thread-ID: 1075797
3 Beiträge
Datumsformat in UserForm
Carsten

Hallo Excel-Experten,
das nachfolgende UserForm erzeugt ausgehend von einem angebbaren Anfangsmonat, einem angebbaren Anfangsjahr und einer angebbaren Dauer einen Zeitplan, allerdings erfolgen die ausgegeben Daten im deutschen Format (Januar, Februar, ...). Meine Frage hierzu: Besteht die M...
22.05.2009 15:45:03
Thread-ID: 1076734
10 Beiträge
Anzeige
Textformat in Zahl umwandeln
Josef

Hallo!
Ich habe in einer Spalte textformatierte Zahlen mit führenden Nullen stehen.
Wie kann ich ohne Hilfsspalte (z.B. =A2*1) die führenden Nullenden in der Spalte wegbringen, damit eine Zahlenformatierung vorhanden ist?
z.B. 00013,80 = 13,80
Danke
Josef
09.07.2009 11:34:12
Thread-ID: 1087382
6 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