AW: Makro zum Einfügen von Zeilen
06.03.2020 15:49:51
Zeilen
Hier Zeilen einfügen und mit Werten aus einer Infotabelle füllen
Ich habe ein Blatt Infos angelegt und in A1- A17 deine Werte eingetragen.
Infos | A |
1 | Diebstahl in Filiale |
2 | Eigenverbrauch Fil. |
3 | WA Best.zähl.Filiale |
4 | WA für Verkauf |
5 | WA Inventur Lager |
6 | WA L-Artikel |
7 | WA Regalkorrektur |
8 | WA Ret.auft. Korr. |
9 | WE Best.zähl.Filiale |
10 | WE Inventur Lager |
11 | WE L-Artikel |
12 | WE Regalkorrektur |
13 | WE Ret.auft. Korr. |
14 | WR Diebstahl Fil. |
15 | WR Eigenverbr. Fil. |
16 | WR für Verkauf |
17 | Ergebnis |
Diese werden dann immer unter die Filialen kopiert
Sub Neu17()
Dim LR As Integer, i As Integer, Z1 As Integer, SP As Integer
Dim TB1 As Worksheet, TB2 As Worksheet, Leer As Integer
Set TB1 = Sheets("Auswertung")
Set TB2 = Sheets("Infos")
Z1 = 3 'wegen Überschrift
SP = 1 ' Daten stehen in Spalte A
'Anzahl Einfügungen
Leer = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row
With TB1
LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = LR To Z1 Step -1
'kopieren
TB2.Rows(1).Resize(Leer).Copy
'Einfügen
.Rows(i).Offset(1).Resize(Leer).Insert (xlDown)
Next
End With
LG UweD