Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe, muss einen Sheet aus einer Datei einfügen..

Hilfe, muss einen Sheet aus einer Datei einfügen..
05.02.2005 15:05:15
Peter
... und Ihn anschließend wieder löschen.
Hallo Excelperten,
In der Xls. Datei soll er sich Daten aus einer anderen Excel Datei holen, dazu benötige ich sowohl den Dateinamen, als auch den Sheet-Namen der wird durch ein Formula vorher abgefragt (Objekt-Nummer: a300 / Planjahr:b300). Bei z.B. Eingabe Objekt 1, Planjahr 2, muss er das Sheet 1 - 2. Planjahr aus der vorher abgefragten Datei einfügen (Dim var as variant).
Ich hoffe Ihr könnt mir helfen, vorab danke.

Private Sub CommandButton1_Click()
Dim var As Variant
Dim sFiles As String
sFiles = "Objektbeurteilungen (*.xls), *.xls, "
sFiles = sFiles & "Objektbeurteilungen (*.xls), *.xls, "
sFiles = sFiles & "Objektbeurteilungen (*.xls), *.xls"
On Error Resume Next
var = Application.GetOpenFilename(sFiles)
Dim swert As Sheets
swert = ActiveSheet.Range("a300")
awert = ActiveSheet.Range("b300")
If awert = 1 Then
xwert = swert
Else
If awert = 2 Then
xwert = swert & " - 2. Planjahr"
Else
If awert = 3 Then
xwert = swert & " - 3. Planjahr"
End If
Sheets("Rechnung").Select
Sheets.Add Type:=var, Type:=xwert
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe, muss einen Sheet aus einer Datei einfügen..
07.02.2005 15:30:24
Peter
Hi,
kann mir den gar keiner helfen? Habe überhupt keinen Plan, hab den obrigen Code mir schon zusammengeklaupt.
mfg
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige