Format abhängig vom Wert mit VBA

Hallo liebes Forum,
ich habe folgende Fragestellung:
Ich habe eine Excelmappe und in Tabelle1 einen Bereich (range"G20:W100"). In diesem werden einerseits Datumswerte, also bspw. 10.03.2022 eingetragen, und andererseits die Zahlenwerte 1 bzw. 2. Dies kann sich auch ändern, bedeutet, heute kann in "G20" der Wert 1 stehen und morgen bspw. ein Datumwert.
Nun meine Frage: Wie sage ich excel über VBA oder auch ohne VBA, dass wenn 1 oder 2 eingetragen wird, auch 1 bzw. 2 angezeigt wird und nicht 01.01.1900 ? Und andererseits natürlich wenn 14.03.2022 eingetragen wird, dies auch angezeigt wird und nicht 44634.
Ich verstehe, dass Excel jedes Datum in einen Wert umrechnet, aber ich möchte eben, dass es abhängig vom Wert (1, 2, alles andere) jeweils ein Zahlenformat oder ein Datumformat anzeigt.
Ich hoffe ich konnte dies verständlich rüberbringen und danke euch vielmals vorab.
Beste Grüße
Patrick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim rngAuswahl As Range Dim rngTreffer As Range Dim dteSuchbegriff As Date Set rngAuswahl = Tabelle1.Range("G40") rngAuswahl.NumberFormat = "DD.MM.YYYY" dteSuchbegriff = "01.01.2019" Set rngTreffer = Tabelle1.Range("G40").Find _ (What:=dteSuchbegriff, LookIn:=xlValues, LookAt:=xlPart) If rngTreffer Is Nothing Then MsgBox ("Nix gefunden") Else rngTreffer.NumberFormat = "0" End If End Sub

Hi
Ich muss meinen Kollegen recht geben, dass die Durchmischung unglücklich ist.
Dennoch hier die Datei mit bedingter Formatierung (ohne VBA). Ich habe das Beispiel auf die ganze Spalte G ausgeweitet.
https://www.herber.de/bbs/user/151756.xlsx
Für die Suche (die Formatierung ist bereits erledigt), könnte man mittels Datentyp Variant arbeiten:


Sub test()
Dim rngAuswahl As Range
Dim rngTreffer As Range
Dim varSuchbegriff As Variant
Set rngAuswahl = Tabelle1.Columns(7)
'Beispiel suche Ganzzahl
'varSuchbegriff = 1
'Beispiel suche Datum
'varSuchbegriff = CDate("14.3.22")
Set rngTreffer = rngAuswahl.Find _
(What:=varSuchbegriff, LookIn:=xlValues, LookAt:=xlWhole)
If rngTreffer Is Nothing Then
MsgBox "Nix gefunden"
Else
MsgBox "gefunden in Zelle " & rngTreffer.Address(0, 0)
End If
End Sub

cu
Chris

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngAuswahl As Range Dim rngTreffer As Range Set rngAuswahl = Tabelle1.Range("G12:AZ100") rngAuswahl.NumberFormat = "0" For Each rngTreffer In rngAuswahl If rngTreffer > 2 Then rngTreffer.NumberFormat = "DD.MM.YYYY" Else End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Format abhängig vom Wert mit VBA

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread