Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1816to1820
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
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in andere Datei übergeben

Daten in andere Datei übergeben
07.03.2021 15:15:19
Ulrich
Hallo Zusammen,
ich habe eine Frage.
Mit folgendem Code übergebe ich Daten in ein anders Tabellenblatt. (Übersicht)
Jetzt sollte dieses Tabellenblatt aber in einer anderen Datei sein ; Datei "Übersicht" Tabellenblatt "Übersicht"
Die Datei liegt immer im gleichen Ordner.
Wie müsste ich den den Code jetzt ändern um auf das Tabellenblatt in der anderen Datei zu verweisen?
Also von der aktuellen Datei (Tabellenblatt "Meldebogen") zur Datei Übersicht (Tabellenblatt Übersicht)
Ich bekomme es nicht hin.
Danke für eure Hilfe.
Gruß Ulli
Public Sub Übertragen()
' Übertragen Makro
Dim loLetzte As Long, WShQ As Worksheet
Set WShQ = Sheets("Meldebogen")
With Sheets("Übersicht")
loLetzte = .Range("D:D").Cells.Find("*", SearchDirection:=xlPrevious).Row + 1
.Cells(loLetzte, 1).Value = Val((.Cells(loLetzte - 1, 1).Value)) + 1
.Cells(loLetzte, 2).Value = WShQ.Range("Datum").Value
.Cells(loLetzte, 4).Value = WShQ.Range("Nachname").Value
.Cells(loLetzte, 5).Value = WShQ.Range("Vorname").Value
' Rahmen
With .Range(Replace("A1:E1", "1", loLetzte)).Borders
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin  'xlHairline
End With
End With
End Sub


13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in andere Datei übergeben
07.03.2021 15:17:33
Hajo_Zi
schreibe
Workbook("Meine_Datei.xlsm").
davor.
Die Datei ist auf.


fehler
07.03.2021 15:18:08
Hajo_Zi
Workbooks
Gruß Hajo

AW: fehler
07.03.2021 15:53:08
Ulrich
Hallo Hajo,
ich habe das jetzt mal überall wo ich gedacht habe vorgeschrieben.
Funktioniert leider nicht.
Gruß Ulli
Public Sub Übertragen()
' Übertragen Makro
Dim loLetzte As Long, WShQ As Worksheet
Set WShQ = Sheets("Meldebogen")
With Worksteet("Übersicht")
loLetzte = Workbooks("Übersicht.xlsm").Range("D:D").Cells.Find("*", SearchDirection:= _
xlPrevious).Row + 1
Workbooks("Übersicht.xlsm").Cells(loLetzte, 1).Value = Val((Workbooks("Übersicht.xlsm"). _
Cells(loLetzte - 1, 1).Value)) + 1
Workbooks("Übersicht.xlsm").Cells(loLetzte, 2).Value = WShQ.Range("Datum").Value
Workbooks("Übersicht.xlsm").Cells(loLetzte, 3).Value = WShQ.Range("Dateiname").Value
Workbooks("Übersicht.xlsm").Cells(loLetzte, 4).Value = WShQ.Range("Nachname").Value
Workbooks("Übersicht.xlsm").Cells(loLetzte, 5).Value = WShQ.Range("Vorname").Value
' Rahmen
With Workbooks("Übersicht.xlsm").Range(Replace("A1:O1", "1", loLetzte)).Borders
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin  'xlHairline
End With
End Sub


Anzeige
AW: fehler
07.03.2021 15:57:49
Hajo_Zi
das ist die falsch Stelle. Die Tabelle steht an einer anderen Stelle bei With
Gruß Hajo

AW: fehler
07.03.2021 16:02:23
Ulrich
Hallo Hajo,
tut mir leid, ich verstehe das nicht.
Kannst du mir die Stelle in diesem Code markieren?
Gruß Ulli
Public Sub Übertragen()
' Übertragen Makro
Dim loLetzte As Long, WShQ As Worksheet
Set WShQ = Sheets("Meldebogen")
With Sheets("Übersicht")
loLetzte = .Range("D:D").Cells.Find("*", SearchDirection:=xlPrevious).Row + 1
.Cells(loLetzte, 1).Value = Val((.Cells(loLetzte - 1, 1).Value)) + 1
.Cells(loLetzte, 2).Value = WShQ.Range("Datum").Value
.Cells(loLetzte, 3).Value = WShQ.Range("Dateiname").Value
.Cells(loLetzte, 4).Value = WShQ.Range("Nachname").Value
.Cells(loLetzte, 5).Value = WShQ.Range("Vorname").Value
' Rahmen
With .Range(Replace("A1:O1", "1", loLetzte)).Borders
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin  'xlHairline
End With
End With
End Sub


Anzeige
AW: fehler
07.03.2021 16:13:38
Hajo_Zi
ich habe es wohl falsch gesehen das es nur ein With vor dem Bereich gibt.
Ich bin dann raus, da ich wohl nicht lesen kann.
Viel Erfolg noch.
Gruß Hajo

AW: fehler
07.03.2021 16:13:59
Ulrich
Hallo Hajo,
die Zieldatei ist nicht geöffnet.
Gruß Ulli

AW: fehler
07.03.2021 16:18:13
Hajo_Zi
Hallo Uli,
Gut dann geht es nicht.
Gruß Hajo

AW: fehler
07.03.2021 16:20:16
Ulrich
Hallo Hajo,
trotzdem Danke für dein Feedback.
Vielleicht hat ja noch jemand eine Idee.
Gruß Ulli

Anzeige
AW: Daten in andere Datei übergeben
07.03.2021 16:55:32
fcs
Hallo Ulli,
du musst im Makro erst prüfen, ob die Zieldatei geöffnet ist.
Falls nicht, dann muss die Zieldatei erst geöffnet werden, bevor der Transfer gestartet wird.
LG
Franz 
Public Sub Übertragen()
' Übertragen Makro
Dim loLetzte As Long, WShQ As Worksheet
Dim strZiel As String, wkbZiel As Workbook, WShZ As Worksheet
Set WShQ = ActiveWorkbook.Sheets("Meldebogen")
'Prüfen, Zieldatei shon geöffnet
strZiel = "Übersicht.xlsx"  'Name Zieldatei ggf. anpassen
For Each wkbZiel In Application.Workbooks
If LCase(strZiel) = LCase(wkbZiel.Name) Then Exit For
Next
If wkbZiel Is Nothing Then
Set wkbZiel = Application.Workbooks.Open(ThisWorkbook.Path & "\" & strZiel)
End If
Set WShZ = wkbZiel.Worksheets("Übersicht")
With WShZ
loLetzte = .Range("D:D").Cells.Find("*", SearchDirection:=xlPrevious).Row + 1
.Cells(loLetzte, 1).Value = Val((.Cells(loLetzte - 1, 1).Value)) + 1
.Cells(loLetzte, 2).Value = WShQ.Range("Datum").Value
.Cells(loLetzte, 4).Value = WShQ.Range("Nachname").Value
.Cells(loLetzte, 5).Value = WShQ.Range("Vorname").Value
' Rahmen
With .Range(Replace("A1:E1", "1", loLetzte)).Borders
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin  'xlHairline
End With
End With
End Sub


Anzeige
AW: Daten in andere Datei übergeben
07.03.2021 18:10:37
Ulrich
Hallo Franz,
funktioniert super !! Danke !!
Kannst du mir noch sagen wie ich die Übersichtsdatei dann wieder schließe.
Ich habe es so probiert, geht aber nicht
strZiel.Close SaveChanges:=True
Gruß Ulli

AW: Daten in andere Datei übergeben
07.03.2021 19:46:49
fcs
Hallo Ulli,
du musst hier Objekt-Variable verwenden, der die Datei beim Öffnen zugewiesen wurde. 
wkbZiel.Close SaveChanges:=True
LG
Franz

AW: Daten in andere Datei übergeben
07.03.2021 21:29:45
Ulrich
Hallo Franz,
super, danke für deine Hilfe.
Viele Grüße Ulli

302 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
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
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