Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum Einfügen von Zeilen

Forumthread: Makro zum Einfügen von Zeilen

Makro zum Einfügen von Zeilen
06.03.2020 13:54:56
Zeilen
Hallo,
ich habe eine Liste mit ca. 180 Filialen, die senkrecht aufgelistet sind. Nun möchte ich, dass unter jeder Filiale (also unter jeder Zeile) 17 Zeilen eingefügt werden. Es soll also die Filialnummer kommen und darunter 17 leere Zeilen eingefügt werden, die ich anschließend befüllen kann. Erst dann soll die nächste Filiale kommen. Würde mich über ein einfaches Makro o.Ä. sehr freuen.
Vielen Dank und beste Grüße
Michel
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Einfügen von Zeilen
06.03.2020 14:14:33
Zeilen
Hallo,
ich bin davon ausgegangen, dass deine "Filialen" in Spalte A stehen und in Zeile 2 beginnen, in Zeile 1 Überschrift.
Das mußt du ggf. im Code an deine Verhältnisse anpassen. Ebenso mußt du natrülich deinen Blattnamen anpassen. 
Option Explicit
Public Sub Leerzeilen()
Dim i As Long
With Worksheets("Tabelle2")
For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 2 Step -1
Rows(i + 1).Resize(17).Insert
Next i
End With
End Sub
Gruß Werner
Anzeige
AW: Makro zum Einfügen von Zeilen
06.03.2020 14:22:07
Zeilen
Erstmal vielen Dank für deine Antwort.
Es kommt ein Laufzeitfehler 9 beim Abspielen.
Füge ich den Code in "Diese Arbeitsmappe" oder in das Tabellenblatt ein?
AW: Makro zum Einfügen von Zeilen
06.03.2020 14:24:34
Zeilen
Hallo,
der Code gehört in ein allgemeines Modul.
Und der Fehler entsteht, weil du wohl kein Blatt mit dem Namen "Tabelle2" in deiner Datei hast. Das habe ich dir aber geschrieben, dass du im Code den Blattnamen anpassen mußt.
Gruß Werner
Anzeige
AW: Makro zum Einfügen von Zeilen
06.03.2020 14:32:04
Zeilen
Noch eine Frage...
ich würde jetzt gerne pro Filiale die 17 Zeilen mit Wörtern füllen. Unter jeder Filiale sollen also immer die gleichen Wörter kopiert werden. Ich hoffe, meine Anforderung ist ausreichend detailliert.
AW: Makro zum Einfügen von Zeilen
06.03.2020 14:48:10
Zeilen
Hallo,
und was soll das heißen, unter jeder Filiale das gleiche "Wort"?
Gruß Werner
Anzeige
AW: Makro zum Einfügen von Zeilen
06.03.2020 14:53:11
Zeilen
Naja ich habe ja jetzt unter jeder Filiale 17 Leerzeilen. Wenn man jetzt eine Filiale als Beispiel nimmt, soll unter der Filialnummer pro Leerzeile ein bestimmtes Wort stehen (kann ich im Code dann einfügen). Beispiel:
Filiale 1
Wort 1
Wort 2
...
Wort 17
Filiale 2
...
Filiale n
Anzeige
AW: Makro zum Einfügen von Zeilen
06.03.2020 15:01:50
Zeilen
Hallo,
sorry, aber mit diesen Angaben kann ich nix anfangen - ist alles nur wischiwaschi. Ich muß ja dem Code sagen können, was er wohin schreiben soll.
So wird das nix.
Gruß Werner
AW: Makro zum Einfügen von Zeilen
06.03.2020 15:17:34
Zeilen
Hier ist einmal die Datei. Für eine Filiale habe ich es beispielhaft vorgemacht.
https://www.herber.de/bbs/user/135669.xlsm
Anzeige
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
1Diebstahl in Filiale
2Eigenverbrauch Fil.
3WA Best.zähl.Filiale
4WA für Verkauf
5WA Inventur Lager
6WA L-Artikel
7WA Regalkorrektur
8WA Ret.auft. Korr.
9WE Best.zähl.Filiale
10WE Inventur Lager
11WE L-Artikel
12WE Regalkorrektur
13WE Ret.auft. Korr.
14WR Diebstahl Fil.
15WR Eigenverbr. Fil.
16WR für Verkauf
17Ergebnis


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
Anzeige
AW: Makro zum Einfügen von Zeilen
06.03.2020 15:52:31
Zeilen
Hallo,
hier deine Beispielmappe. Deine Texte stehen im Blatt Tabelle1 und werden von dort geholt.
https://www.herber.de/bbs/user/135673.xlsm
Gruß Werner
AW: Makro zum Einfügen von Zeilen
06.03.2020 14:24:42
Zeilen
Angeblich ist der Index außerhalb des gültigen Bereichs...
AW: Makro zum Einfügen von Zeilen
06.03.2020 14:26:26
Zeilen
Ich hab den Fehler gefunden, war meine Schuld.
Hat alles super geklappt. Vielen Dank dir!!!
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
06.03.2020 14:28:18
Werner
AW: Makro zum Einfügen von Zeilen
06.03.2020 14:28:06
Zeilen
Hallo
Sub Neu17()
    Dim LR As Integer, i As Integer, Z1 As Integer, SP As Integer
    Dim TB As Worksheet, Leer As Integer
    
    Set TB = Sheets("Tabelle1")
    Z1 = 2 'wegen Überschrift 
    SP = 1 ' Daten stehen in Spalte A 
    Leer = 17
    
    With TB
        LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
        
        For i = LR To Z1 Step -1
            
            'Einfügen 
            .Rows(i).Offset(1).Resize(Leer).Insert (xlDown)
             
        Next
    End With
End Sub

LG UweD
Anzeige
AW: Makro zum Einfügen von Zeilen
06.03.2020 14:34:58
Zeilen
Danke für deine Mühe, hat sich bereits erledigt. Ich habe jedoch noch ein weiteres Anliegen, bei dem ich mich über Hilfe freuen würde.

Forumthreads zu verwandten Themen

Grafik in Kopfzeile gelöscht; wie wieder einfügen?
abdipost

Hallo zusammen,
habe aus einem Tabellenblatt in einer Excel-Mappe die Grafik aus der Kopfzeile gelöscht.
Die Grafik habe ich nicht als Datei vorliegen.
Wie bekomme ich die wieder rein?
In den anderen Tabellenblättern ist sie noch enthalten.
Danke für Eure Hilfe
16.06.2009 15:36:17
Thread-ID: 1081936
9 Beiträge
Bei Checkbox - dann einfügen
Heinz

Hallo Excel Gemeinde
Ich hätte gerne wenn ich in einer UF bei einer Checkbox ein en Hacken setze, das mir dann im Sheets "Prüfungen" das Wort "Umbau" von B4:B13 Horizontal zentriert erscheint.
Könnte mir dazu bitte jemand helfen ?
Danke Heinz
18.06.2009 12:34:27
Thread-ID: 1082536
4 Beiträge
Anzeige
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
Tabelle als Bild einfügen
selli

guten morgen liebe leute,
ich habe schon einiges probiert, scheitere aber einmal mehr vermutlich an der falschen syntax.
folgendes möchte ich mit folgendem code erreichen:
es soll ein image eingefügt werden und anschliessend mit dem bereich einer tabellebefüllt werden.
ActiveShe...
24.06.2009 10:50:54
Thread-ID: 1084007
4 Beiträge
Anzeige
Text einfügen, wenn nicht vorhanden
Karsten

Hallo...
in C1 steht durch ein Makrobefehl ein Text. Mit folgendem Befehl wird überprüft, ob in den dahinterkommenden Zellen (D1, E1 usw.) auch dieser Text vorkommt.
Cells.find(What:=ActiveCell, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDi...
24.06.2009 23:35:21
Thread-ID: 1084207
8 Beiträge
Inhalte einfügen
steffen

Hallo Leute,
ich möchte von einer Tabelle den gesamten Inhalt einer Spalte in eine andere Tabelle kopieren, wobei jedoch die Zeile 1 lee bleiben soll.
Worksheets("Tabelle1").Range("B:B").Copy Destination:=Worksheets("Tabelle2").Range("A2")
bei dem Code bekomme ich einen Fehler. Wenn...
29.06.2009 08:12:59
Thread-ID: 1084991
4 Beiträge
Null einfügen
Ralf

Hallo Excel - Experten,
ich habe in Spalte A fünfstellige "Zahlen" wie z.B.: '12345 '23456 '34567
Es sind manchmal 70 manchmal 135 Zahlen die so, untereinander stehen.
Nun möchte ich gerne diese z.B. 135 Zahlen markieren und dann, .... ja dann kommt
mein Problem :-), dann...
29.06.2009 12:17:52
Thread-ID: 1085089
6 Beiträge
Einfügen von bestimmten Blätternnamen in Liste
bestimmten

Hallo zusammen,
hab schon mein nächstes Problem.
Ich habe eine Excel Arbeitsmappe von der aus über eine Vorlage durch Kopieren immer neue Tabellenblätter erstellt werden - für jedes Projekt ein neues Arbeitsblatt (die blätter heißen so wie das jeweilige projekt sprich eine ziffernfolge)...
29.06.2009 14:01:18
Thread-ID: 1085138
18 Beiträge
Anzeige
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Tabellenblatt einfügen verhindern
Josef_T

Guten Morgen,
kann mir bitte jemand sagen, ob es mit Excel Bordmittel möglich ist, zu verhindern das jemand ein neues
Tabellenblatt einfügen kann?
Wenn ja, wie denn bitte?
Gruß Josef
03.07.2009 08:33:46
Thread-ID: 1086122
3 Beiträge
Formel per Makro einfügen und mit R1C1 fixieren
Christoph

Hallo und entschuldigt bitte das etwas kryptische Thema.
Ich füge eine Formel per VBA in eine Tabelle ein. Das Skript habe ich per Makro Recorder aufgenommen. Dabei muss ein Bereich immer einen festen Ausgangswert haben. In der Formel wird mir aber für die Fettgedruckte Stelle immer ein Feh...
03.07.2009 15:32:34
Thread-ID: 1086254
3 Beiträge
ComboBox auf sheet mit vbCode einfügen
ray

Hallo,
ich möchte auf dem sheet 'start' in Zeile 1 Spalte 10 via code eine combobox einfügen.
Diese soll mit "Kasse", "Bank" und "Bar" ausgefüllt sein.
Irgendwie bekomme ich das nicht hingefummelt...
Hab auch shcon mit aufzeichenne probiert, geht gar nicht...
Kann mir jeman...
07.07.2009 10:36:15
Thread-ID: 1086890
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige