Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
264to268
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
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in mehreren Tabellen gleichzeitig einfügen

in mehreren Tabellen gleichzeitig einfügen
12.06.2003 09:35:12
daahli
Ich habe ein makro programmiert welches eine Zeile in mehreren Tabellen einfügt. Allerdings geschieht das ganze nacheinander, im Sinne dass die Zeile zuerst in Tabelle 1 dann Tabelle 2 ... eingefügt wird indem einfach die darauffolgende Tabelle ausgewählt wird. Gibt es irgendwie die Möglichkeit mehrere Tabellen gleichzeitig auszuwählen und die Zeile dann in allen Tabellen einzufügen?

Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: in mehreren Tabellen gleichzeitig einfügen
12.06.2003 09:38:01
Harald Kapp

Hallo Daahli,
nein, ich denke Dein Weg ist so schon der Richtige.

Gruß Harald

Re: in mehreren Tabellen gleichzeitig einfügen
12.06.2003 11:05:10
Knut

Das geht mit Array, Beispiel:
Option Explicit
Sub Zeile()
With Sheets(Array("Tabelle5", "Tabelle4", "Tabelle3", "Tabelle1", "Tabelle2"))
Rows(3).Delete
End With
End Sub

Knut

Re: in mehreren Tabellen gleichzeitig einfügen
12.06.2003 11:20:55
Harald Kapp

Hallo Knut,
saubere Lösung.
Aber auch diese Lösung führt das Löschen meines Erachtens nacheineander aus. Allerdings hat sie den Vorteil, dass man die Schleife nicht explizit programmieren muss.

Gruß Harald

Re: in mehreren Tabellen gleichzeitig einfügen
12.06.2003 14:14:25
daahli

Danke euch beiden, aber leider funkts bei mir nicht. Was stimmt nicht? Es macht alles nur in einer Tabelle

With Sheets(Array("Plan-Daten", "Ist-Daten", "Hochrechnung"))
Range("A300").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
ActiveCell.Value = UserForm2.TextBox1.Value
ActiveCell.Offset(0, 1).Value = UserForm2.TextBox2.Value & " " & UserForm2.ComboBox1.Value
End With

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige