Liebe Leute,
ich möchte ein bestimmtes Datum aus Zelle B2 (oder durch Quellbereich definiert) nehmen und in alle eingeblendeten Zellen des Zielbereichs einfügen.
Folgender Code funktioniert grundsätzlich, allerdings muss ich derzeit im Quellbereich das gleiche Datum bis zum Ende der Datensätze ziehen, damit er die gleiche Anzahl der Zellen im Quellbereich und Zielbereich hat.
Weiß jemand eine Lösung, wie ich den Code umschreiben muss oder eine andere elegantere Variante?
Derzeitiger Code:
Public Sub BereichKopieren()
Dim rngQuelle As Range
Dim rngZiel As Range
Dim rngCell As Range
Dim lngCell As Long
On Error Resume Next
Set rngQuelle = Application.InputBox("Markieren Sie den Quellbereich", Type:=8)
Set rngZiel = Application.InputBox("Markieren Sie den Zielbereich", Type:=8).SpecialCells(xlCellTypeVisible)
If Err.Number > 0 Then Exit Sub
'Prüfung ob beide Bereich die gleiche Größe haben
If rngQuelle.Count <> rngZiel.Count Then
MsgBox "Die beide Bereiche sind unterschiedlich groß!"
Exit Sub
End If
For Each rngCell In rngZiel
lngCell = lngCell + 1
rngCell.Value = rngQuelle.Cells(lngCell)
Next rngCell
End Sub |