For...Next ?
28.12.2019 12:49:26
Jörg
gibt es eine Möglichkeiten nachfolgenden Code kürzer zu schreiben?
es ist zum einen "Copy" (wegen Zahl)zum anderen "Autofill".
Vielen Dank für Eure Hilfe.
VG Jörg
Sub Auffüllen()
Dim rngLetzteZelleInA As Range
Dim intAnzahlNeuerZeilen As Integer
intAnzahlNeuerZeilen = 2 ' anpassen
Set rngLetzteZelleInA = Columns(11).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.Copy rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
Set rngLetzteZelleInA = Columns(12).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.Copy rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
Set rngLetzteZelleInA = Columns(13).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.Copy rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
Set rngLetzteZelleInA = Columns(17).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.Copy rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
Set rngLetzteZelleInA = Columns(7).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.AutoFill rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
Set rngLetzteZelleInA = Columns(8).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.AutoFill rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
Set rngLetzteZelleInA = Columns(9).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.AutoFill rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
Set rngLetzteZelleInA = Columns(10).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.AutoFill rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
Set rngLetzteZelleInA = Columns(15).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.AutoFill rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
Set rngLetzteZelleInA = Columns(16).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.AutoFill rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
End Sub