Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2025 16:19:36
Wenn Fehler
20.05.2025 15:34:36
Excelnamen - Typen erkennen
20.05.2025 12:42:46
Zeilen löschen in Abhängigkeit
20.05.2025 09:37:18
Zellen-Name über alle Spalten bestimmen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage beim Kopieren von Zeilen

Forumthread: Abfrage beim Kopieren von Zeilen

Abfrage beim Kopieren von Zeilen
03.10.2008 19:48:00
Zeilen
Hallo, das nachfolgende Makro (weiter unten) habe ich hier im Forum erhalten und benötige nach einigen Tests die Abfrage nach der Datei nicht mehr.
Ich benötige nur noch die Abfrage nach dem "Ziel"-Tabellenblatt. Dieser Name soll beim Start des Makros eingegeben werden. Bei erneutem Start des Makros soll der eingegebene Tabellenblattname allerdings überschreibbar sein und wieder solange eingetragen bleiben bis er erneut editiert wird.
Wenn ich aber die nachfolgenden Zeilen entferne meckert VBA.
Was habe ich im Makro zuviel entfernt?
Dim Datei As String
Datei = InputBox("Bitte Datei eingeben", , Sheets("Projektdaten").Cells(1, 1).Value)
Sheets("Projektdaten").Cells(1, 1).Value = Datei
Die "Originalzeilen", die kopiert und in das neue bereits angelegte Tabellenblatt (dafür die Abfrage) eingefügt werden sollen, stehen weiterhin im Tabellenblatt Vorlage in den Zeilen 7 bis 15. 

Sub BereichKopieren()
Dim Datei As String
Dim Tabelle As String
Dim ws As Worksheet, wsZ As Worksheet, efz%
Datei = InputBox("Bitte Datei eingeben", , Sheets("Projektdaten").Cells(1, 1).Value)
Sheets("Projektdaten").Cells(1, 1).Value = Datei
Tabelle = InputBox("Bitte Tabellenblatt eingeben", , Sheets("T").Cells(2, 1).Value)
Sheets("Tabelle1").Cells(2, 1).Value = Tabelle
Set ws = ThisWorkbook.Worksheets("Vorlage")
Set wsZ = Workbooks(Datei).Worksheets(Tabelle)
efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Rows("7:15").Copy wsZ.Cells(efz, 1)
End Sub


liebe Grüsse
obelix

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Benutzeranpassung
Tags
#inputbox #tabellenblattname #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Abfrage beim Kopieren von Zeilen
03.10.2008 20:07:00
Zeilen
Hallo,
Du benötigst die Variable "Datei" der InputBox noch in dieser Zeile
Set wsZ = Workbooks(Datei).Worksheets(Tabelle)
entferne diese auch!
Gruß Tino
AW: Abfrage beim Kopieren von Zeilen
03.10.2008 22:15:54
Zeilen
Hallo Tino,
danke für Deinen Rat. Aber so funktioniert das auch noch nicht ohne Debugger.
Hier bleibt der Debugger hängen:
Set wsZ = Workbooks(Datei).Worksheets(Tabelle)
Nehme ich diese vorstehende Zeile aus dem Makro, so werden die Zeilen 7 bis 15 NICHT in das abgefragte Tabellenblatt kopiert, sondern in das Tabellenblatt "Vorlage". Und dort benötige ich diese nicht.
Ich kann mir da nicht helfen ?!!
liebe Grüsse
obelix
Anzeige
AW: Abfrage beim Kopieren von Zeilen
03.10.2008 22:31:00
Zeilen
Hallo,
habe Deinen Beitrag noch mal durchgelesen, ich verstehe dies so.
Verstehen kann ich jetzt aber nicht, warum Du die zwei Zeilen löschen wolltest?
  Sub BereichKopieren()
      Dim Datei As String
      Dim Tabelle As String
      Dim ws As Worksheet, wsZ As Worksheet, efz%
      
      Datei = InputBox("Bitte Datei eingeben", , Sheets("Projektdaten").Cells(1, 1).Value)
      Sheets("Projektdaten").Cells(1, 1).Value = Datei
     
      Tabelle = InputBox("Bitte Tabellenblatt eingeben", , Sheets("T").Cells(2, 1).Value)
      Sheets("Tabelle1").Cells(2, 1).Value = Tabelle
   
      Set ws = ThisWorkbook.Worksheets(Tabelle)
      Set wsZ = Workbooks(Datei).Worksheets(Tabelle)
      
      efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
      ws.Rows("7:15").Copy wsZ.Cells(efz, 1)
      
  End Sub


Gruß Tino

Anzeige
AW: Abfrage beim Kopieren von Zeilen
03.10.2008 22:47:31
Zeilen
Hallo Tino,
hier die korrigierte Makroversion:

Sub BereichKopieren()
Dim Datei As String
Dim Tabelle As String
Dim ws As Worksheet, wsZ As Worksheet, efz%
Datei = InputBox("Bitte Datei eingeben", , Sheets("Projektdaten").Cells(1, 1).Value)
Sheets("Projektdaten").Cells(1, 1).Value = Datei
Tabelle = InputBox("Bitte Tabellenblatt eingeben", , Sheets("Projektdaten").Cells(2, 1). _
Value)
Sheets("Projektdaten").Cells(2, 1).Value = Tabelle
Set ws = ThisWorkbook.Worksheets(Tabelle)
Set wsZ = Workbooks(Datei).Worksheets(Tabelle)
efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Rows("7:15").Copy wsZ.Cells(efz, 1)
End Sub


Die Abfrage nach der Datei benötige ich nicht. Es soll nur aus der Tabelle "Vorlage" die Zeilen 7 bis 15 kopiert und an das Ende des "abgefragten" (zu editierenden) Tabellenblattes eingefügt werden.
Der Datei- und der Tabellenblattname werden, im Tabellenblatt Projektdaten gespeichert. Warum auch immer.
Das Makro klappt aber nur wenn ich es ohne die gewünschte Änderung übernehme?
liebe Grüsse obelix

Anzeige
AW: Abfrage beim Kopieren von Zeilen
03.10.2008 23:03:56
Zeilen
Hallo,
ist so jetzt richtig?
Sub BereichKopieren()
Dim ws As Worksheet, wsZ As Worksheet, efz As Long
Dim Tabelle As String

With Sheets("Projektdaten").Cells(2, 1)
  Tabelle = InputBox("Bitte Tabellenblatt eingeben", , .Value)
 .Value = Tabelle
End With
   
      Set ws = ThisWorkbook.Worksheets("Vorlage")
      Set wsZ = Sheets(Tabelle)
      
      efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
      ws.Rows("7:15").Copy wsZ.Cells(efz, 1)
      
  End Sub


Gruß Tino

Anzeige
AW: Abfrage beim Kopieren von Zeilen
04.10.2008 08:20:22
Zeilen
Hallo Tino,
ja. So ist es genau wie gewünscht.
Ich danke Dir recht herzlich für Deinen Biss, dieses Makro anzupassen.
liebe Grüsse
obelix

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
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
String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
aus Word-Datei in Excel kopieren
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
ich will ein Worde-file öffnen, alles kopieren und in ein xls-file einfügen. Kann mir da jemand weiterhelfen?
Danke schon im Voraus!
Gruss Florian
13.08.2008 11:22:00
Thread-ID: 1001444
11 Beiträge
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 16:28:20
Thread-ID: 1001592
3 Beiträge
Datei vom Laufwerk kopieren
Walter

Guten Morgen Allerseits,
ich möchte gern, mit einem Makro, eine Datei, z.b. "Muster.xls"vom Zentrallaufwerk "R",
in mein "C" Laufwerk kopieren.
Beide Verzeichnisse sind gleich.
Danach möchte ich die das die kopierte Datei direkt geöffnet wird.
mfg Walter MB
14.08.2008 08:43:00
Thread-ID: 1001718
4 Beiträge
Datei kopieren mit xcopy
Meinolf

Hallo und guten Morgen ans Excel Forum ,
möchte gerne mit dem Befehl xcopy Dateien kopieren in vba mit Hilfe einer Variablen, der ich vorher den Pfad und Dateinamen zugewiesen habe x77. Irgendwie scheint das aber nicht zu funktionieren. Hat jemand eine Idee ?
Sub kopieren_auf_LW_f_cf(...
15.08.2008 09:47:22
Thread-ID: 1002054
8 Beiträge
Anzeige
Makro, das automatisch Werte kopiert und entnimmt
Maxine

Hallo zusammen,
ich brauche für meine Diplomarbeit ein Makro, das folgendermaßen funktionieren soll:
Im Sheet "Conditional Expectations K2" soll es die Werte (x und t_x) von jeder ID in Zelle B6 bzw. B7 einsetzen. Für ID 1 wären das H2 und I2 in B6 und B7, für ID 2 H3 und I3 in B6 und...
15.08.2008 13:10:23
Thread-ID: 1002150
7 Beiträge
Tabellenblatt kopieren
Pia

Hallo zusammen,
ist es möglich von einem Tabellenblatt (Januar) auf mehrere Tabellenblätter kopieren aber in der Monat Reihenfolge?
z.B. Tabellenblatt 1 heisst Januar, TB 2 = Februar usw..bis Dezember?
Wie kann ich eine Datei mit dem Namen ihres Tabellenblattes versehen?
Danke.....
17.08.2008 16:16:41
Thread-ID: 1002424
2 Beiträge
Kopieren von Tabellenblatt
Tabellenblatt

Hallochen,
wie kann ich ein Tabellenblatt um weitere 100Seiten kopieren (alle in einer Datei)? Ich kenne nur: rechte mausklick, kopieren, usw. Leider dauert diese Vorgang ewig bis ich 100 Seiten fertig kopieren kann.
Danke für den Tipps im Voraus!!
Gruß,
Pia
17.08.2008 21:46:04
Thread-ID: 1002471
7 Beiträge
Anzeige
Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige