Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1640to1644
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Zeile mit Formeln auf zwei Tabellen einfüg

Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
03.09.2018 10:18:02
Roger
Hallo zusammen,
Mit VBA hatte ich bis anhin noch nicht viel zu tun.
Daher hoffe ich, dass einer von euch, Profis mit weiterhelfen kann.
Das Script funktioniert bis jetzt (nur auf einem Tabellenblatt) gut.
Nun zu meinem Anliegen;
Ich möchte per Button mehrere Zeilen mit darin befindlichen Formeln auf Tabelle1 und zugleich auch auf Tabelle2 untereinander einfügen.
Ich habe euch mal den Script den ich bis jetzt verwende aufgeführt.
Könnt ihr mir sagen was ich noch falsch mache?
Schon jetzt danke ich euch für jeden Tipp.
Sub ZeilenEinfuegen ()
Dim Zeile As Long
Zeile = ActiveCell.Row
Sheets(Array("Tabelle1", "Tabelle2")).Select
Sheets("Tabelle1").Activate
Range(Rows(Zeile + 1), Rows(Zeile + 12)).Insert Shift:=xlDown
Range(Rows(Zeile), Rows(Zeile + 12)).FillDown
Sheets("Tabelle2").Select
End Sub

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
03.09.2018 15:21:27
Dieter
Hallo Roger,
das könnte folgendermaßen aussehen:
Sub ZeilenEinfuegen()
Dim i As Long
Dim ws As Worksheet
Dim zeile As Long
zeile = ActiveCell.Row
For i = 1 To 2
Set ws = ThisWorkbook.Worksheets("Tabelle" & i)
ws.Range(ws.Rows(zeile + 1), _
ws.Rows(zeile + 12)).Insert
ws.Rows(zeile).AutoFill Destination:=ws.Range(ws.Rows(zeile), _
ws.Rows(zeile + 12))
Next i
End Sub
Viele Grüße
Dieter
AW: Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
03.09.2018 21:44:22
Roger
Hallo Dieter
Wow, herzlichen Dank! Das funktioniert einwandfrei.
Du hasts voll drauf.
Ich hoffe, dass ich irgend wann auch mal jemanden helfen kann.
Gruss Roger
Anzeige
Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
04.09.2018 06:38:24
Roger
Guten Morgen Dieter
Ich nochmals.
Vorhin hatte ich nun das funktionierende Script in mein eigentliches Excel eingebaut.
Die Starttabelle wo die Zeilen als erstes eingefügt werden nennt sich "db_1" auf der Tabelle1. Die zweite Tabelle nennt sich "Abgelaufene Verträge" auf der Tabelle16.
Jetzt gibt es einen Laufzeitfehler 9 aus. Index ausserhalb des gültigen Bereichs.
Wenn ich nun Debuggen drücke, zeigt es mir die Zeile Set ws = ThisWorkbook.Worksheets("Tabelle" & i)
Was muss ich ändern damit die Tabelle angesprochen wird?
AW: Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
04.09.2018 08:19:21
Dieter
Hallo Roger,
wenn ich deine Tabellenblattnamen richtig verstanden habe, dann könnte das so aussehen: 
Sub ZeilenEinfuegen()
Dim i As Long
Dim mappe(1 To 2) As String
Dim ws As Worksheet
Dim zeile As Long
mappe(1) = "db_1"
mappe(2) = "Abgelaufene Verträge"
zeile = ActiveCell.Row
For i = 1 To 2
Set ws = ThisWorkbook.Worksheets(mappe(i))
ws.Range(ws.Rows(zeile + 1), _
ws.Rows(zeile + 12)).Insert
ws.Rows(zeile).AutoFill Destination:=ws.Range(ws.Rows(zeile), _
ws.Rows(zeile + 12))
Next i
End Sub
Viele Grüße
Dieter
Anzeige
AW: Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
04.09.2018 08:27:55
Dieter
Hallo Roger,
der Name "mappe" war etwas unglücklich gewählt, intuitiver ist die Bezeichnung "blatt", also so: 
Sub ZeilenEinfuegen()
Dim i As Long
Dim blatt(1 To 2) As String
Dim ws As Worksheet
Dim zeile As Long
blatt(1) = "db_1"
blatt(2) = "Abgelaufene Verträge"
zeile = ActiveCell.Row
For i = 1 To 2
Set ws = ThisWorkbook.Worksheets(blatt(i))
ws.Range(ws.Rows(zeile + 1), _
ws.Rows(zeile + 12)).Insert
ws.Rows(zeile).AutoFill Destination:=ws.Range(ws.Rows(zeile), _
ws.Rows(zeile + 12))
Next i
End Sub
Viele Grüße
Dieter
Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
04.09.2018 08:35:16
Roger
Hallo Dieter
Ach so, dann sind das sogenannte Schleifen?
Anzeige
Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
04.09.2018 08:43:58
Roger
Jetzt funktioniert der Script einwandfrei.
Herzlichen Dank Dieter!
Leider kann ich dir mein File aus Datenschutzgründen nicht Zeigen, aber du hast mir sehr geholfen.
Gibt es auf dem Markt ein empfehlenswertes VBA Buch?
AW: Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
04.09.2018 14:02:40
Roger
Hallo Dieter
Da ich das Makro ja auf 2 Tabellen nutze und ich beide Tabelle mit Passwort Geschütz habe, hatte ich nach 
Sub ZeilenEinfuegen()
ActiveSheet.Unprotect Password:="Test123" eingegeben und am Schluss des Makro
ActiveSheet.Protect Password:="Test123"
End Sub
Leider öffnet es mir das andere Tabellenblatt nicht.
Mache ich da noch einen Überlegungsfehler?
lg Roger
Anzeige
AW: Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
04.09.2018 18:37:33
Roger
So habe ich es gelöst;
Worksheets ("db_1").Unprotect Password:="Test123"
Worksheets ("Abgelaufene Verträge").Unprotect Password:="Test123"
AW: Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
04.09.2018 19:39:13
Dieter
Hallo Roger,
1. Für einen VBA-Anfänger könnte ich eines der beiden folgenden Bücher empfehlen:
Baumeister, Inge; Klein Dieter: VBA mit Excel – Der leichte Einstieg, BILDNER Verlag GmbH, 2018,19,90 €
oder
Schels, Ignatz: Excel 2016 VBA-Programmierung, Markt+Technik Verlag, 2018, 19,95 €
2. Wenn deine Tabellenblätter beide mit dem gleichen Passwort geschützt sind, dann könnte das Programm so aussehen:
Sub ZeilenEinfuegen()
Dim i As Long
Dim blatt(1 To 2) As String
Dim ws As Worksheet
Dim zeile As Long
blatt(1) = "db_1"
blatt(2) = "Abgelaufene Verträge"
zeile = ActiveCell.Row
For i = 1 To 2
Set ws = ThisWorkbook.Worksheets(blatt(i))
ws.Unprotect Password:="Test123"
ws.Range(ws.Rows(zeile + 1), _
ws.Rows(zeile + 12)).Insert
ws.Rows(zeile).AutoFill Destination:=ws.Range(ws.Rows(zeile), _
ws.Rows(zeile + 12))
ws.Protect Password:="Test123"
Next i
End Sub
3. Die Struktur 

For i = 1 To 2
Next i

nennt man tatsächlich eine Schleife, genauer eine For-Next-Schleife.
Viele Grüße und weiter viel Erfolg
Dieter
Anzeige
Mehrere Zeile mit Formeln auf zwei Tabellen einfüg
05.09.2018 08:01:53
Roger
Hallo Dieter
Danke für dein Buchtipp
Mit deiner Korrektur läuft alles super. Herzlichen Dank!
Für mich noch interessant zu lesen wo du die Blätter entsperren lässt. Ich dachte immer das müsse gleich nach dem Sub Befehl geschehen.
Wieder was dazu gelernt.
Schönen Tag und Gruss
Roger

308 Forumthreads zu ähnlichen Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
Werte aus PRN Datei einlesen über 65563 Zeilen
Andre´

Hallo alle zusammen,
Ich lese aus einer PRN-Datei die Werte ins Excel ein wie folgt:
Option Explicit
Sub Daten_einlesen() Dim iFree As Integer, strText As String, arrTmp, arrDaten() Dim lngCounter As Long, lngStart As Long, lngEnde As Long ReDim arrDaten(1 To 11, 1 To 1) iFree = Fr...
04.11.2008 08:39:00
Thread-ID: 1021464
12 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Wenn Spalte D übereinstimmt, dann Inhalt kopieren
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter -Basis und Basis1-, in Spalte D steht die Kundennummer. Wie kann ich erreichen, dass ein Abgleich zu weiteren Tabellen -Tabelle1-4- (es können 4, aber auch nur 1 Tabellenblatt vorhanden sein) erfolgt und wenn die Kundennummer aus Tabe...
30.11.2008 20:33:51
Thread-ID: 1029110
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
7
7
2
3
11
5
2
5
7
2
7
12
2
3
5
9
3
2
8
1
6
4
2
12