08.05.2022, 17:21
Hallo ihr fleissigen Hellfer
Ich stehe wieder mal vor einem für mich unlösbaren Problem.
Ich kopiere in meiner Tabelle Daten von Spalte "AD7:AD" nach Spalte "BU7:BU".
Das funktioniert, wenn die Daten immer in der gleichen Spalte stehen.
Leider ist dies nicht immer der Fall. Darum möchte ich über die Spaltenüberschriften kopieren.
Wie muss ich das Makro ändern, dass anstelle der Spalte "BU7:BU" die Überschrift "Geburtsdatum"
verwendet wird?
Sub Daten_Ersetzen()
' Geburts Datum
Dim Monate, i&
Dim cell As Range
Dim rng As Range
Dim lastRow As Long
lastRow = Cells(Rows.Count, "BU").End(xlUp).Row
Monate = Application.GetCustomListContents(3)
Set rng = Sheets("Tabelle1").Range("BU7:BU" & lastRow) ' "BU7:BU" ändern auf Spaltenüberschrift "Geburtsdatum"
Set rng = Sheets("Tabelle1").Range("AD7:AD" & lastRow) ' "AD7:AD" nicht ändern da sich die Spalte nie ändert.
Sheets("Tabelle1").Range("BU7:BU" & lastRow).Copy rng ' "BU7:BU"ändern auf Spaltenüberschrift "Geburtsdatum"
With rng.SpecialCells(xlCellTypeConstants)
.Replace " ", ".", xlPart
For i = 1 To 12
.Replace Monate(i), Format(i, "00")
Next
End With
For Each cell In rng
cell = Replace(cell, "BEF.", "vor ")
cell = Replace(cell, "BEF..", "vor ")
cell = Replace(cell, "AFT.", "nach ")
cell = Replace(cell, "AFT..", "nach ")
cell = Replace(cell, "ABT.", "um ")
cell = Replace(cell, "ABT..", "um ")
If Mid(cell, 2, 1) = "." Then cell = "0" & cell
Next
End Sub
PS: ich weis zuerst: Formel, Zeilen markieren, Auswahl erstellen, Oberste Zeile usw.
Hoffe auf eure Hilfe.
Gruss Martin
Ich stehe wieder mal vor einem für mich unlösbaren Problem.
Ich kopiere in meiner Tabelle Daten von Spalte "AD7:AD" nach Spalte "BU7:BU".
Das funktioniert, wenn die Daten immer in der gleichen Spalte stehen.
Leider ist dies nicht immer der Fall. Darum möchte ich über die Spaltenüberschriften kopieren.
Wie muss ich das Makro ändern, dass anstelle der Spalte "BU7:BU" die Überschrift "Geburtsdatum"
verwendet wird?
Sub Daten_Ersetzen()
' Geburts Datum
Dim Monate, i&
Dim cell As Range
Dim rng As Range
Dim lastRow As Long
lastRow = Cells(Rows.Count, "BU").End(xlUp).Row
Monate = Application.GetCustomListContents(3)
Set rng = Sheets("Tabelle1").Range("BU7:BU" & lastRow) ' "BU7:BU" ändern auf Spaltenüberschrift "Geburtsdatum"
Set rng = Sheets("Tabelle1").Range("AD7:AD" & lastRow) ' "AD7:AD" nicht ändern da sich die Spalte nie ändert.
Sheets("Tabelle1").Range("BU7:BU" & lastRow).Copy rng ' "BU7:BU"ändern auf Spaltenüberschrift "Geburtsdatum"
With rng.SpecialCells(xlCellTypeConstants)
.Replace " ", ".", xlPart
For i = 1 To 12
.Replace Monate(i), Format(i, "00")
Next
End With
For Each cell In rng
cell = Replace(cell, "BEF.", "vor ")
cell = Replace(cell, "BEF..", "vor ")
cell = Replace(cell, "AFT.", "nach ")
cell = Replace(cell, "AFT..", "nach ")
cell = Replace(cell, "ABT.", "um ")
cell = Replace(cell, "ABT..", "um ")
If Mid(cell, 2, 1) = "." Then cell = "0" & cell
Next
End Sub
PS: ich weis zuerst: Formel, Zeilen markieren, Auswahl erstellen, Oberste Zeile usw.
Hoffe auf eure Hilfe.
Gruss Martin