Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text aus Tabellenblatt in andere TB übertragen

Text aus Tabellenblatt in andere TB übertragen
16.01.2020 11:30:43
Weidt
Guten morgen alle zusammen,
ich suche nach einer VBA-Formel für folgende Kriterien:
Aus Tabellenblatt 1 sollen Text und Zahlen aus dem Bereich A5 bis S5, A7 bis S7 sowie A9 bis S9
automatisch in das Tabellenblatt 2, Tabellenblatt 3 und Tabellenblatt 4 in den Bereich A5 bis S5, A7 bis S7 und A9 bis S9 übertragen werden.
Anmerkungen:
In Tabellenblatt X kann ich bereits alle andren Tabellenblätter per Schaltflächen aus- und einblenden lassen.
Ich möchte sicherstellen, dass aus dem Tabellenblatt 1, Text und Zahlen aus dem Bereich A5 bis S5, A7 bis S7 sowie A9 bis S9, auch in ein Tabellenblatt übertragen werden, dass zur Zeit noch ausgeblendet ist.
Herzlichen Dank im Voraus für eure Hilfe,
Vanessa

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aus Tabellenblatt in andere TB übertragen
16.01.2020 11:37:14
Torsten
Hallo Vanessa,
nach diesem Schema. Musst du dann fuer alle weiteren TB weiterstricken. Mit mehr Angaben (z.B. wieviele TB, Namen der TB usw.) haette man auch eine Schleife basteln koennen. Ob die TB ausgeblendet sind oder nicht, macht keinen Unterschied. 

Sub kopieren()
Sheets("Tabelle1").Range("A5:S5").Copy
Sheets("Tabelle2").Range("A5").PasteSpecial xlPasteValues
Sheets("Tabelle1").Range("A7:S7").Copy
Sheets("Tabelle2").Range("A7").PasteSpecial xlPasteValues
Sheets("Tabelle1").Range("A9:S9").Copy
Sheets("Tabelle2").Range("A9").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Gruss Torsten
Anzeige
AW: Text aus Tabellenblatt in andere TB übertragen
17.01.2020 08:44:47
Weidt
Anbei ein Screenshot vom Visual Basic:
Userbild
--------------------------------------------------------------------------------------------
AW: Text aus Tabellenblatt in andere TB übertragen
17.01.2020 08:48:59
Torsten
Hallo Vanessa,
ich glaube so wird das nix. Die Tabellen heissen nicht Tabelle1 usw. Jedenfalls nicht mit den Stringnamen.
Bitte wenn moeglich die Datei mal hier hochladen. Wenn sensible Daten drin sind, dann eine Kopie erstellen und Beispieldaten eintragen.
Und dann bitte nochmal genau erklaeren, was von wo nach wo kopiert werden soll.
Gruss Torsten
Anzeige
AW: Text aus Tabellenblatt in andere TB übertragen
17.01.2020 08:48:32
Weidt
Anbei ein Screenshot vom Visual Basic:
Userbild
--------------------------------------------------------------------------------------------
Anbei ein Screenshot von dem Tabellenblatt:
Userbild
AW: Text aus Tabellenblatt in andere TB übertragen
16.01.2020 11:42:01
Joachim
Hallo
probier mal das:
for Nr=2 to 4
for zeile=5 to 9
if zeile=6 then zeile=7
if zeile=8 then zeile=9
for spalte=1 to 19
worksheets("Tabellenblatt " & Nr).cells(zeile,spalte).value=worksheets("Tabellenblatt 1").cells(zeile,spalte).value
next spalte
next zeile
next Nr
Gruß
Joachim
Anzeige
AW: Text aus Tabellenblatt in andere TB übertragen
16.01.2020 11:55:35
Torsten
Hallo Joachim,
ganz nett gedacht. Nur wird das mit vielen Daten sehr langsam, da du Zelle fuer Zelle kopierst.
Und die beiden If Abfragen kannst du dir sparen, wenn du in der For den Step benutzt. 
for zeile=5 to 9 Step 2

Dann wird nur 5, 7 und 9 benutzt. Also deinen Vorschlag mal weitergesponnen und gleich die ganze Range in einem Ritt uebertragen. 

Option Explicit
Sub kopieren()
Dim Nr As Long, Zeile As Long
For Nr = 2 To 4
For Zeile = 5 To 9 Step 2
Sheets("Tabellenblatt " & Nr).Cells(Zeile, spalte).Value = Sheets("Tabellenblatt 1"). _
Range(Cells(Zeile, 1), Cells(Zeile, 19)).Value
Next Zeile
Next Nr
End Sub

Hinweis:
Bitte gewoehnt euch doch an, Variablen zu deklarieren. Wenn man mit Option Explicit arbeitet, kann man das garnicht vergessen. Und strukturierter Code ist auch wichtig, um eine Uebersicht zu behalten. Bei dir sieht man nicht, was zu welchem For oder IF gehoert. Nicht gut, einem Fragesteller mit Level "Basiskentnisse in VBA" solch einen Code hinzuwerfen.
Gruss Torsten
Anzeige
AW: Text aus Tabellenblatt in andere TB übertragen
16.01.2020 12:14:57
Torsten
Sorry, kleiner Fehler drin. Besser so: 

Option Explicit
Sub kopieren()
Dim Nr As Long, Zeile As Long
For Nr = 2 To 4
For Zeile = 5 To 9 Step 2
Sheets("Tabellenblatt 1").Range(Cells(Zeile, 1), Cells(Zeile, 19)).Copy
Sheets("Tabellenblatt " & Nr).Cells(Zeile, 1).PasteSpecial xlPasteValues
Next Zeile
Next Nr
Application.CutCopyMode = False
End Sub

AW: Text aus Tabellenblatt in andere TB übertragen
17.01.2020 08:30:34
Weidt
Hallo Thorsten,
erst einmal vielen Dank.
Ich habe das ganze weitergestrickt und erhalte nun eine Fehlermeldung:
"Fehler beim Kompilieren. Mehrdeutiger Name: Kopieren."
Als Code habe ich in "diese Arbeitsmappe":
-----------------------------------------------------------------------------------------------------
Sub kopieren()
Sheets("Tabelle2").Range("A5:S5").Copy
Sheets("Tabelle3").Range("A5").PasteSpecial xlPasteValues
Sheets("Tabelle2").Range("A7:S7").Copy
Sheets("Tabelle3").Range("A7").PasteSpecial xlPasteValues
Sheets("Tabelle2").Range("A9:S9").Copy
Sheets("Tabelle3").Range("A9").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub


Sub kopieren()
Sheets("Tabelle2").Range("A5:S5").Copy
Sheets("Tabelle4").Range("A5").PasteSpecial xlPasteValues
Sheets("Tabelle2").Range("A7:S7").Copy
Sheets("Tabelle4").Range("A7").PasteSpecial xlPasteValues
Sheets("Tabelle2").Range("A9:S9").Copy
Sheets("Tabelle4").Range("A9").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

-------------------------------------------------------------------------------------------------
Herzlichen Gruß,
Vanessa
Anzeige
AW: Text aus Tabellenblatt in andere TB übertragen
17.01.2020 08:41:27
Torsten
Hallo Vanessa,
du musst dies alles in einer Sub halten. Du bekommst die Fehlermeldung, weil du eine 2. Sub mit dem gleichen Namen erstellt hast.
Ich meinte das so: 

Sub kopieren()
Sheets("Tabelle2").Range("A5:S5").Copy
Sheets("Tabelle3").Range("A5").PasteSpecial xlPasteValues
Sheets("Tabelle2").Range("A7:S7").Copy
Sheets("Tabelle3").Range("A7").PasteSpecial xlPasteValues
Sheets("Tabelle2").Range("A9:S9").Copy
Sheets("Tabelle3").Range("A9").PasteSpecial xlPasteValues
Sheets("Tabelle2").Range("A5:S5").Copy
Sheets("Tabelle4").Range("A5").PasteSpecial xlPasteValues
Sheets("Tabelle2").Range("A7:S7").Copy
Sheets("Tabelle4").Range("A7").PasteSpecial xlPasteValues
Sheets("Tabelle2").Range("A9:S9").Copy
Sheets("Tabelle4").Range("A9").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Aber ich hatte dir ja mit Vorarbeit von Joachim auch schon eine Schleifenversion geschickt. Diese hier nochmals. Aber Voraussetzung hier ist das die Sheets wirklich Tabelle2, Tabelle3 usw heissen: 

Option Explicit
Sub kopieren()
Dim Nr As Long, Zeile As Long
For Nr = 2 To 4
For Zeile = 5 To 9 Step 2
Sheets("Tabelle" & Nr).Cells(Zeile, spalte).Value = Sheets("Tabelle1"). _
Range(Cells(Zeile, 1), Cells(Zeile, 19)).Value
Next Zeile
Next Nr
End Sub

Desweiteren gehoert dieser Code nicht unter DieseArbeitsmappe sondern in ein allgemeines Modul.
Gruss Torsten
Anzeige
AW: Text aus Tabellenblatt in andere TB übertragen
17.01.2020 10:45:27
Weidt
Hallo Thorsten,
Joachims Schleifenversion kann ich leider nicht verwenden, da meine Sheets nicht wirklich Tabelle2, Tabelle3 usw heissen, sondern eigene Namen haben.
Deine Version habe ich jetzt unter ein allg. Modul gehängt.
Allerdings erhalte ich auch dort eine Fehlermeldung.
Laufzeitfehler: 9
Index außerhalb des gültigen Bereichs.
Anbei ein Screen Shot:
Userbild
Würde mich sehr freuen, dass Problem gelöst zu bekommen.
Habe leider nur rudimentäre VBA Kenntnisse...
Herzlichen Gruß,
Vanessa
Anzeige
AW: Text aus Tabellenblatt in andere TB übertragen
17.01.2020 11:06:14
Werner
Hallo,
deine Worksheets heißen nicht "Tabelle2", "Tabelle3"....
Der Blattname ist das, was im VBA-Projektbaum in der Klammer steht.
Also:
Worksheets("Projektsteckbrief")....
Worksheets("Ziele_Hirarchie")....
Und Achtung: Beim Blatt "Ziele_Hirarchie" hast du am Ende noch ein Leerzeichen mit drin. Pass da mal am besten den Blattnamen an.
Gruß Werner
AW: Text aus Tabellenblatt in andere TB übertragen
20.01.2020 10:09:19
Weidt
Hallo Werner,
vielen Dank für den Hinweis mit den Namen der Tabellenblätter und dem Leerzeichen! :)
Mit den richtigen Namen klappts.
Desweiteren habe ich noch herausgefunden, dass ich anscheinend keine verbundenen Zellen haben darf.
Als ich diese verbundenen Zellen wieder aufgeteilt habe, hat er die Texte anstandslos übertragen.
Weitere Frage:
Wie kann ich jetzte auch noch das Format (Schriftart, Schriftgröße, Schriftfarbe, Text fett, Zellenfarben) automatisch übertragen lassen?
Vielen Dank im Voraus und besten Gruß,
Vanessa
Anzeige
AW: Text aus Tabellenblatt in andere TB übertragen
20.01.2020 10:13:31
Torsten
Hallo Vanessa,
wenn du meine erste Version benutzt, dann aenderst du in jeder Zeile einfach das 
xlPasteValues

um in 
xlPasteAll

Gruss Torsten
AW: Text aus Tabellenblatt in andere TB übertragen
20.01.2020 10:26:32
Weidt
Guten Morgen Torsten,
ein Traum, perfekt!!!
Ich danke dir recht herzlich!!! :)
Besten Gruß,
Vanessa
gerne...
20.01.2020 10:28:07
Torsten
viel Spass
Gerne u. Danke für die Rückmeldung. o.w.T.
20.01.2020 13:26:21
Werner
AW: Text aus Tabellenblatt in andere TB übertragen
17.01.2020 08:39:54
Weidt
Hallo Thorsten / Joachim,
auch hier erhalte ich eine Fehlermeldung: "Index außerhalb des gültigen Bereichs."
Mein Code:
-------------------------------------------------------------------------------------------------
Option Explicit 
Sub kopieren()
Dim Nr As Long, Zeile As Long
For Nr = 2 To 4
For Zeile = 5 To 9 Step 2
Sheets("Tabelle2").Range(Cells(Zeile, 1), Cells(Zeile, 19)).Copy
Sheets("Tabelle " & Nr).Cells(Zeile, 1).PasteSpecial xlPasteValues
Next Zeile
Next Nr
Application.CutCopyMode = False
End Sub
---------------------------------------------------------------------------------------------------
Herzlichen Gruß,
Vanessa
Anzeige
AW: Text aus Tabellenblatt in andere TB übertragen
17.01.2020 08:43:17
Torsten
Hallo Vanessa,
bitte entscheide dich. In deiner urspruenglichen Anfrage wolltest du von Tabelle1 in die Tabellen2, 3, 4 usw kopieren.
Jetzt schreibst du den Code und kopierst von Tabelle2.
Was nun?

301 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Datum automatisch in andere Zelle kopieren
ThomasB

Hallo,
Nach langem möchte ich ein wenig in Excel wieder üben. Für meine Frau will ich eine Zuchttabelle für Kaninchen erstellen. soweit habe ich das auch in Griff. Nur mit dem Datum und der automatischen Kopierung gibt es ein kleines Problem. In der Celle C2 wird das erste Deckdatum eingetr...
15.01.2009 14:00:41
Thread-ID: 1040123
4 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Inhalt einer Zelle in mehrere Zellen aufsplitten
Joerschi

Hallo liebe Excel-Community,
ich möchte den Inhalt einer Zelle (getrennt durch Leerzeichen) in andere Zellen aufsplitten bzw. in anderen Zellen getrennt anzeigen lassen. Die Leerzeichen aus der Herkunftszelle sollen dabei ignoriert werden.
Z. B. steht in Zelle A1: "1 2 3 4 5"
Jetzt...
04.03.2009 11:46:03
Thread-ID: 1056268
9 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
2
1
3
1
3
5
3
22
6
8
3
4
8
7
3
12
1
2
1
13
2
3
4
1
4