Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen in mehrere Tabellen einfügen

Zeilen in mehrere Tabellen einfügen
03.01.2004 22:07:34
Simmi
Hallo zusammen,

ich habe eine Arbeitsmappe mit 3 Tabellen. Tabelle 1, Tabelle2 und Tabelle 3.

Nun sollte durch ein Makro(VBA) folgende Aktion durchgeführt werden:

Die Zeile 6 (enthält Formeln) der Tabelle 1 wird kopiert und in alle Tabellen (1,2,3) vor eine bestimmte Zeile hinzugefügt.(Wichtig--nicht kopiert)

Die Zeilennummer sollte per Inputbox eingeben werden.

Beispiel: Ich drücke auf eine Commandbox "Zeile hinzufügen".
Die Zeile 6 der Tabelle 1 wird kopiert. Dann geht die Inputbox auf.
Ich gebe die Zeilennummer ein vor die die kopierte Zeile eingefügt werden soll.

Ich hoffe es ist verständlich und ein Profi von Euch kann mir helfen.
Vielen Dank
Simmi

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen in mehrere Tabellen einfügen
04.01.2004 04:48:33
Uwe Küstner
Hallo Simmi,

das war eine echt harte Nuß. Doch ich glaube, folgender Code sollte funktionieren:


Sub ZeileKopieren()
Dim ZNr As Variant
Dim T As Worksheet
Dim QZeile As Range
ZNr = InputBox("Bitte die Zeilennummer eingeben!")
If IsNumeric(ZNr) Then
Set QZeile = Worksheets("Tabelle1").Rows(6)
For Each T In Worksheets
T.Rows(ZNr).Insert Shift:=xlDown
QZeile.Copy T.Rows(ZNr)
Next T
End If
End Sub


Viele Grüße

Uwe
AW: Zeilen in mehrere Tabellen einfügen
04.01.2004 21:14:08
simmi
Hallo Uwe.
du bischt a Käpsele !!!!
Vielen Dank. Es funktioniert bestens.
Gruss
simmi
Anzeige

276 Forumthreads zu ähnlichen Themen

Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Anzeige
Sverweis, Wenn dann -> richtige Preise auswählen
Till

Hallo Excel Freunde,
ich habe mal wieder ein Problem.
In folgender Liste muss ich mehrere Entscheidungen durchführen.
Im Bildanhang die Liste:

D.h. in einer Kalkulation stehen jetzt nur 20 Stück von Produkt A und Excel soll dann den richtigen Preis (also in diesem Fall 230...
26.11.2008 11:51:00
Thread-ID: 1027984
10 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
Anzeige
Sverweis eine Zeile höher
Armin

Hallo,
ich habe eine Frage zu Sverweis:
Folgende Tabelle liegt vor:
A1 = A
A2 = B
A3 = C
B1 = 1
B2 = 2
B3 = 3
Mit der Funktion SVERWEIS ermittle ich ausgehend von Spalte A den Eintrag in Spalte B:
So liefert die Funktion = SVERWEIS("B";A1:B3;2;0) da...
03.02.2009 22:10:00
Thread-ID: 1046815
2 Beiträge
Zwei Zeilen in einer Zelle
Michael

Hallo,
ich habe folgendes Problem. In einer Zelle steht ein Ort allerdings steht dieser innerhalb der Zelle nach unten verrückt, so dass in der Zelle quasi eine Leerzeile ist. Gibt es eine Möglichkeit diese Leerzeilen innerhalb der Zellen zu löschen?
Ich habe hier mal eine Grafik eingef...
26.03.2009 13:12:43
Thread-ID: 1064220
5 Beiträge
mehrere Rechenoperationen in einer Zelle
marc

Hallo,
ich nehme eine Umrechung in Excel vor. Diese besteht aus 6, nacheinander ablaufenden, Rechenschritten.
1. Wert/255
2. WENN(Wert aus 1 größer 0,0405;(Wert aus 1+0,055/1,055)^2,4;(Wert aus 1/12,92))
3. Wert aus 2*100
4. 0,6502043*Wert aus 3+0,1780774*X2+0,1359384*X3...
20.05.2009 14:16:29
Thread-ID: 1076371
8 Beiträge
Sverweis mit Zeilenumbruch
Kai

Hallo,
mal wieder ein schwieriges Problem:
ich habe ein Sheet, das ist so aufgebaut:
A1________________B1________________C1________________D1_______________
Land______________Strasse____________PLZ_______________ORT______________
Deutschland________Hausstr.17_________12345_...
23.07.2009 15:01:49
Thread-ID: 1090845
6 Beiträge
WVerweis über mehrere Zeilen
Hannes

Hallo,
ich möchte gerne eine dynamische Abfrage und eine kleine Statistische Auswertung machen.
Dazu habe ich eine kleine Beispielliste mit der genauen Fragestellung erstellt:
https://www.herber.de/bbs/user/63407.xls
Hoffe ihr könnt mir helfen.
Gruß Hannes
24.07.2009 13:36:15
Thread-ID: 1091075
10 Beiträge

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
1
6
9
2
6
1
4
7
5
9
1
10
3
1
3
2
1
5
3
5
4
5
3
10
10