Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

For...Next ???

For...Next ?
28.12.2019 12:49:26
Jörg
Hallo Fachleute,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
als Schleife ...
28.12.2019 12:58:30
Matthias
Hallo
Option Explicit
Sub Auffüllen()
Dim i&
Dim rngLetzteZelleInA As Range
Dim intAnzahlNeuerZeilen As Integer
intAnzahlNeuerZeilen = 2   ' anpassen
For i = 7 To 17
Set rngLetzteZelleInA = Columns(i).Find("*", SearchDirection:=xlPrevious)
If Not rngLetzteZelleInA Is Nothing Then
rngLetzteZelleInA.Copy rngLetzteZelleInA.Resize(intAnzahlNeuerZeilen)
End If
Set rngLetzteZelleInA = Nothing
Next
End Sub
Gruß Matthias
AW: als Schleife ... [gelöst]
28.12.2019 14:25:01
Jörg
Hallo Matthias,
vielen Dank. Es klappt.
Wünsche Ein schönes WE
Gruß Jörg

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige