Mit Blick auf Header-Spalten und Zellen in diesen Spalten in VBA

Question

hoffe ich, ist durch die Kopfzeilen eines Excel-Arbeitsblattes suchen und suchen Sie die Header, die das Wort "DATE" oder "DT" enthalten und formatieren alle der Daten in dieser Spalte zu "MM/TT/JJJJ hh: mm" Jede Hilfe wäre willkommen. Vielen Dank.

Code Bestehende (aus Kommentar angehoben)

Sub Macro() 
    Dim iLastRow As Integer 
    Dim i As Integer 
    iLastRow = ActiveSheet.Range("a10000").End(xlUp).Row 
    For i = 3 To iLastRow 
     ActiveSheet.Range("A" & i).Select 
     Selection.NumberFormat = "m/d/yyyy h:mm" 
    Next i 
End Sub 

Answer 1

Dies sollte das tun, was Sie wollen:

Sub Macro() 
    Dim x As Variant, y As Variant 
    For Each y In ThisWorkbook.Worksheets 
    With y 
     For Each x In .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft)).Cells 
     If InStr(1, Replace(x.Value, "DATE", "DT", , , vbTextCompare), "DT", vbTextCompare) Then 
      Intersect(.UsedRange, .UsedRange.Offset(2), x.EntireColumn).NumberFormat = "m/d/yyyy h:mm" 
     End If 
     Next 
    End With 
    Next 
End Sub 

einfach die For Each Linie ändern, um Ihre Bedürfnisse anzupassen;)