Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus einer anderen xls-File kopieren

Werte aus einer anderen xls-File kopieren
08.10.2008 10:43:00
Horst
Hallo zusammen,
folgendes Problem stellt sich mir:
Ich will aus einer anderen Mappe mehrere Zeilen und Zellen kopieren. Je nachdem welche Mappe der Benutzer haben will, wird diese geöffnet und die gewünschten Daten kopiert.
Hier mein Ansatz:
Code:
Sub Kopieren()
Dim datum As Long
Dim datei As String
datum = Worksheets("Ostnetz").Range("M10").Value
datei = "X:\TS-M\Auswertung Ostnetz\" & datum & "_Prescott.xls"
Range("L12").Activate
Range("L12").Value = datei
Workbooks.Open datei
Die Datei öffnet sich auch einwandfrei, nur kann ich darin keine Zeile aktivieren bzw. kopieren. Was mach ich falsch?
Freue mich auf eure Antworten!
Grüße

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus einer anderen xls-File kopieren
08.10.2008 11:56:20
fcs
Hallo Horst,
zur Auswahl von Zellen hat Excel-VBA eine Input-Box mit Parametern. Diese muss du in dein Makro einbauen.
Dabei ist die Kontrolle der jeweiligen Objekte sehr wichtig und müssen deshalb entsprechenden Objekt-Variablen zugewiesen werden.
Nachfolgend dein Code beispielhaft angepasst.
Gruß
Franz

Sub Kopieren()
Dim datum As Long
Dim datei As String
Dim wbQuelle As Workbook, wbZiel As Workbook
Dim rngZiel As Range, rngMarkierung As Range
On Error GoTo Fehler
datum = Worksheets("Ostnetz").Range("M10").Value
datei = "X:\TS-M\Auswertung Ostnetz\" & datum & "_Prescott.xls"
'datei = "C:\Lokale Daten\Test\Daten\" & "Test99.xls"
Range("L12").Activate
Range("L12").Value = datei
Set wbZiel = ActiveWorkbook
'Quelldatei schreibgeschützt öffnen
Workbooks.Open Filename:=datei, ReadOnly:=True
Set wbQuelle = ActiveWorkbook
'Zeilen in Quelle auswählen
Set rngMarkierung = Application.InputBox(Prompt:="Bitte zu kopierende Zeilen markieren", _
Title:="Daten aus anderer Datei kopieren", _
Type:=8)
wbZiel.Activate
'Zielzeile auswählen
Set rngZiel = Application.InputBox(Prompt:="Bitte Zelle in Einfüge-Zeile markieren", _
Title:="Daten aus anderer Datei kopieren", _
Type:=8)
'daten kopieren/einfügen
rngMarkierung.EntireRow.Copy
ActiveSheet.Cells(rngZiel.Row, 1).Insert shift:=xlShiftDown
Application.CutCopyMode = False
Fehler:
If Err.Number  0 Then
If Err.Number = 424 And (rngMarkierung Is Nothing Or rngZiel Is Nothing) Then
'Es wurde kein Zellbereich ausgewählt. Makro wird beendet."
Else
MsgBox "Fehler-Nr.: " & Err.Number & vbLf & Err.Description
End If
End If
'ggf geöffnete Quelldatei wieder schliessen
If Not wbQuelle Is Nothing Then wbQuelle.Close savechanges:=False
End Sub


Anzeige

302 Forumthreads zu ähnlichen 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
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
Anzeige
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
Minus-Zeit als Ergebnis einer Formel
Rico

Hallo liebe Ex(cel)perten
Ich kommen langsam aber stetig voran und ich entschuldige mich jetzt schon da ich weiss, dass diese Probleme viel besprochen werden in diesem genialen Forum aber ich hab leider auf mein Problem keine Lösung gefunden in der Recherche.
Gemäss Beispielmappe: https...
09.10.2008 11:31:11
Thread-ID: 1015298
3 Beiträge
Formel ganz ausblenden wenn Werte fehlen !?
nathan

Einen schönen Nachmittag,
kann ich ein Ergebnis in einer Formel solange ausblenden lassen, bis die benötigten Werte eingegeben wurden?
Beispiel:
E3 = 5
E4 = 7
E5 = (E3+E4)
Angezeigt wird: 12
E3 = 5
E4=
E5 = (E3+E4)
Nichts wird angezeigt.
oder
"We...
09.10.2008 15:18:01
Thread-ID: 1015360
2 Beiträge
in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
nur Werte kopieren
Pet


Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy() D...
01.11.2008 21:04:45
Thread-ID: 1021094
7 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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