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
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellendaten in anderer datei ablegen

Tabellendaten in anderer datei ablegen
30.01.2004 08:41:43
Robert
Hallo,
brauche mal wieder eure Hilfe.
Würde gern aus einer Datei test.xls alle Sheets auslesen lassen und nur die spalte b und c soweit jeweils einträge vorhanden sind kopieren und in einer anderen datei speicher.xls im sheet tabelle1 alle ablegen...so das dort eine übersicht entsteht von allen daten jedes sheets aus der datei test.xls
bin über jede hilfe dankbar.
gruß Robert

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

Betreff
Datum
Anwender
Anzeige
@Josef Ehrensberger Hilfe
30.01.2004 09:19:56
Robert
hast du einen tip für mein Problem?
gruß Robert
AW: @Josef Ehrensberger Hilfe
30.01.2004 11:36:14
Josef Ehrensberger
Hallo Robert!
Ohne das jetzt groß getestet zu haben, müsste
dieser Code funktionieren.


Sub Uebertragen()
Dim wkbQ As Workbook
Dim wkbZ As Workbook
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lngQ As Long
Dim lngZ As Long
Dim lngZeile As Long
Set wkbQ = Workbooks("test.xls")    'name der quell-datei
Set wkbZ = Workbooks("Speicher.xls") 'name der ziel-datei
Set wksZ = wkbZ.Sheets("Tabelle1")  'name der ziel-tabelle
lngZ = wksZ.Range("A65536").End(xlUp).Row + 1 'erste freie zelle in ziel-blatt
   For Each wksQ In wkbQ.Sheets
      With wksQ
      lngQ = .Range("B65536").End(xlUp).Row 'letzte gefüllte zeile in quell-blatt
         For lngZeile = 1 To lngQ
            If .Cells(lngZeile, 2) <> "" Then
            .Range(.Cells(lngZeile, 2), .Cells(lngZeile, 3)).Copy _
               wksZ.Cells(lngZ, 1)
            lngZ = lngZ + 1
            End If
         Next
      End With
   Next
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Wenn Probleme auftreten, dann melde Dich.
Gruß Sepp
Anzeige
@Josef Ehrensberger
30.01.2004 13:29:43
Robert
Hallo,
danke für den Code der funktioniert tadellos,
hab nur ein problem noch wie müßte ich den code modifizieren,
das ich aus den auslese sheets nicht die erste zeile mit kopiere also immer erst ab
a2 und b2.
ich wäre ihnen sehr dankbar wenn sie mir nochmal einen kleinen tip geben könnten.
danke und gruß robert
AW: @Josef Ehrensberger
30.01.2004 13:35:26
Josef Ehrensberger
Hallo Robert!
Ändere die Zeile
For lngZeile = 1 To lngQ
ab in
For lngZeile = 2 To lngQ
dann wird erst in Zeile zwei begonnen.
Gruß Sepp
Ein großes Dankeschön mal wieder!!! o.T.
30.01.2004 13:48:00
Robert
.
Danke für die Rückmeldung! o.T.
30.01.2004 18:23:46
Josef Ehrensberger
/

304 Forumthreads zu ähnlichen Themen

VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Anzeige
Hyperlink auf Sheet in anderer Datei
Christoph

Hallo zusammen, mal wieder ein kleines Problem:
Ich lese aus einer Zelle den Text Karteikartenneu\A.xls#'Nachname Vorname Ort'!A4 ein.
Ziel des unten stehenden Codes ist es, im Unterverzeichnis Karteikartenneu die Datei A.xls zu öffnen und das Sheet Nachname Vorname Ort im Vordergrund z...
21.10.2008 08:04:00
Thread-ID: 1017836
6 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Anzeige
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Worksheet aus geschl. in geöffn. Datei kopieren
Alexander

Hallo zusammen,
ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
20.01.2009 13:38:00
Thread-ID: 1041825
4 Beiträge
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
Makro in eine/mehrere andere Dateien transportiere
Britta

Hallo zusammen,
ich habe nun mit dem von Hary erfundenen Makro eine gute Lösung für meine Daten gefunden. Leider weiß ich nicht wie ich das Makro in eine oder mehrere weitere Dateien übertragen kann. Ich habe es einfach naiv kopiert, dann aber festgestellt das, dass nur geht wenn ich die Qu...
11.02.2009 16:52:00
Thread-ID: 1049686
9 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 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
5
2
5
2
1
4
3
6
8
1
1
13
7
1
6
5
10
2
2
1
7
8
4
5
5