Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1632to1636
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
Inhaltsverzeichnis

Wildcards bei Case

Wildcards bei Case
13.07.2018 18:09:13
WalterK
Hallo,
der nachfolgende Code formatiert eine Spalte mit einem Datumsformat, wenn eine der vorgegebenen Überschriften vorliegt.
Kann man auch Wildcards verwenden damit ich z.B. *BEGINN* schreibe und dann alle Spalten formatiert werden die das Wort BEGINN enthalten.
Option Explicit
Sub DatumFormatieren()
Dim wks As Worksheet
Dim LZ As Long
Dim LSp As Long
Dim i As Long
Set wks = ActiveSheet
LZ = 5
LSp = 7
For i = 1 To 6
With wks.Range(wks.Cells(2, i), wks.Cells(LZ, i))
Select Case UCase(wks.Cells(1, i))
Case "BEGINN", "ENDE", "DATUM"
.NumberFormat = "m/d/yyyy"
.HorizontalAlignment = xlCenter
End Select
End With
Next i
Set wks = Nothing
End Sub

Besten Dank, Servus Walter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wildcards bei Case
13.07.2018 18:30:42
Nepumuk
Hallo Walter,
das geht leider nicht. Da musst du mit dem Like-Operator arbeiten:
Option Explicit
Option Compare Text

Sub DatumFormatieren()
    Dim wks As Worksheet
    Dim LZ As Long
    Dim LSp As Long
    Dim i As Long
    
    Set wks = ActiveSheet
    
    LZ = 5
    LSp = 7
    
    For i = 1 To 6
        With wks.Range(wks.Cells(2, i), wks.Cells(LZ, i))
            If wks.Cells(1, i).Value Like "*BEGINN*" Or wks.Cells(1, i).Value Like _
                "*ENDE*" Or wks.Cells(1, i).Value Like "*DATUM*" Then
                .NumberFormat = "m/d/yyyy"
                .HorizontalAlignment = xlCenter
            End If
        End With
    Next i
    
    Set wks = Nothing
End Sub

Gruß
Nepumuk
Anzeige
TipTop, danke Nepumuk. Servus, Walter
13.07.2018 18:44:40
WalterK

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige