VBA Zellen in variablen Spalten ändern
26.11.2014 21:11:28
WalterK
mit dem folgenden Code ändere ich in der Spalte D ab Zelle 3 alle 09.09.9999 in die Zahl 73050 (= 31.12.2099).
Jetzt sollte das ganze Variabel funktionieren und zwar je nach der Überschrift:
Wenn eine Überschrift entweder "Von" oder "Bis" oder "Ab" lautet, soll in dieser Spalte ab Zeile 3 das Datum geändert werden. Groß- und Kleinschreibung soll nicht unterschieden werden. Die Überschriften sind immer in Zeile 2. Die Spaltenanzahl ist variabel, richtet sich aber nach Zeile 2.
Hier der Code:
Option Explicit
Sub DatumTauschen()
Dim Zelle As Range
Dim LzinD As Long
Dim LSp As Long
LzinD = Application.Max(3, Cells(Rows.Count, 4).End(xlUp).Row)
LzSp = Cells(2, Columns.Count).End(xlToLeft).Column
For Each Zelle In ActiveSheet.Range("D3:D" & LzinD)
If Zelle.Value = "09.09.9999" Then Zelle.Value = "73050"
Next Zelle
End Sub
https://www.herber.de/bbs/user/94046.xlsm
Besten Dank für die Hilfe und Servus, Walter
Anzeige