Office: userform für dateiauswahl

hi!
ich wollte euch masters mal was fragen:
ich hab zwei arbeitsmappen;
nun möcht ich in einem nen button, mit dem man folgendes macht:
men klickt ihn, und dann werden einige tabellenblätter in die zweite arbeitsmappe kopiert;

mein ansatz war folgender:

Code:

    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Copy Before:=Workbooks("1.xlsx").Sheets(3)

weiter kam ich auch nicht; ich hätte gern, dasss statt dem fixen "1.xlsx" ich in ner userform auswählen kann, wo sich die datei befindet, in der ich die dateiblätter kopieren will.

ist das möglich? hofffe, ich war nicht zu unklar!

 

Hallo!

Auf dieser Seite wird sowas angeboten:
http://www.downloadcounter.de/count...kzeugkiste/tabuebertrag.html&user=ExcelSeite2

Sonst müsstest du dir die Methode GetOpenFilename zu Gemüte führen.

 

das programm is eher nichts für mich;

aber ich hab des mit GetOpenFilename mal probiert und bin zu folgendem ergebnis gekommen:

Code:

Private Sub CommandButton2_Click()
    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Copy Before:=Workbooks("& fileToOpen").Sheets(1)
End Sub

aber es funktioniert nicht; kannst du mir auch da weiterhelfen?
schon mal danke im voraus!

 

Hallo!

Dann hast du offensichtlich den falschen Code gepostet, denn hier ist nichts mit "GetOpenFilename" zu erkennen...

 

oh, sry

du hast recht, das is nur ein teil des codes!

Code:

Private Sub CommandButton1_Click()

fileToOpen = Application _
    .GetOpenFilename("Excel Arbeitsmappen (*.xls), *.xls")
      
End Sub

Private Sub CommandButton2_Click()
    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Copy Before:=Workbooks("& fileToOpen").Sheets(1)
End Sub

 

Hallo

Bei mir funktioniert dies:

Code:

Sub test()
Dim Datei As Variant
Dim DateiName As String
Datei = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
If Datei = False Then Exit Sub
Workbooks.Open Filename:=Datei
With Application.WorksheetFunction
DateiName = Mid(Datei, 1 + .Find("#", .Substitute(Datei, "\", "#", _
Len(Datei) - Len(.Substitute(Datei, "\", "")))), 99)
End With
ThisWorkbook.Sheets("Tabelle1").Copy Before:=Workbooks(DateiName).Sheets(1)
'Optional auch noch die folgende Zeile, um die Datei wieder zu schliessen:
'Workbooks(DateiName).Close SaveChanges:=True
End Sub

Wahrscheinlich schiesse ich bei der Bestimmung von DateiName mit Kanonen auf Spatzen, aber Hauptsache es klappt...

 

seh ich genauso wie du!
und verdammt, geil, wie es klappt!

das hab ich mir genauso vorgestellt!

großes großes DANKE!

 

C.Almer:

> fileToOpen = Application. _
> GetOpenFilename("Excel Arbeitsmappen (*.xls), *.xls")

Hier wird der Dateiname in die Variable fileToOpen gepackt.

> Sheets("Tabelle1").Copy _
> Before:=Workbooks("& fileToOpen").Sheets(1)

Und hier wird als Dateiname die Zeichenkette "& fileToOpen" statt der Variablen benutzt. Laß mal die " und das & weg, dann müsste es eigentlich klappen.

Gruß, Michael

 

danke miriki! das werd ich bei gelegenheit probieren!

aber derzeit hab ich folgendes problem:

Code:

Dim Datei As Variant
Dim DateiName As String
Dim ProgressBar As Integer

Datei = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
If Datei = False Then Exit Sub

Workbooks.Open Filename:=Datei
With Application.WorksheetFunction
DateiName = Mid(Datei, 1 + .Find("#", .Substitute(Datei, "\", "#", _
Len(Datei) - Len(.Substitute(Datei, "\", "")))), 99)
End With

Windows(DateiName).Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("DateConfig").Select
Range("F6").Select
ActiveCell.FormulaR1C1 = "6/4/2007"

Bei "Range("F6").Select" bleibt er stecken und gibt mir ne fehlerrmeldung:
die selektmethode des rang-objekts konnte nicht ausgeführt werden;

weiß jemand, was ich dagegen machen kann?

 

Was passiert denn, wenn du diesen Teil

Code:

Sheets("DateConfig").Select
Range("F6").Select 

änderst in

Code:

Sheets("DateConfig").Range("F6").Select 

oder falls das nicht klappt, dann

Code:

Sheets("DateConfig").Select
Sheets("DateConfig").Range("F6").Select 

 

dein zweiter code hat geklappt!
ihr seid echt spitze!

 

C.Almer:
> dein zweiter code hat geklappt!

Das liegt daran, daß man mit "select" nur arbeiten kann, wenn das Blatt vorher auch aktiviert (in den Vordergrund geholt) wurde.

Ich tue mich auch immer etwas schwer, zu entscheiden, ob ich "select" oder "activate" nehme, bevorzuge aber i.a. Letzteres.

Wobei ich insgesamt noch folgende Schreibweise favorisieren würde:

ggf.: workbooks(datei).activate
worksheets(blatt).activate
activesheet.range(zelle).activate / activesheet.cells(zeile,spalte).activate

Der Vorteil von "activesheet" ist, daß man den Blattnamen nicht mehrmals im Code hat. Egal, wenn man es per Variable macht, aber vorteilhaft, wenn man "..." benutzt. Sollte sich später der Blattname ändern, muß man an weniger Stellen im Code ändern.

Gruß, Michael