Hallo,
danke für die Tips!
Habe das Problem jetzt auch soweit gelöst! Bekomme jedoch jetzt den Fehler "400" und kann mir nicht ganz erklären welche ursache das hat!
Ich poste mal den Code, vllt findet einer von auch was! Danke!
'Public Variablen zu übergrbae der Variablen aus dem Userform. In eigenem Modul angelegt
Public oMesswertWorkbook As Workbook
Public oTempWorkbook As Workbook
Public strGewaehlteTabelle As String
Public intGewaehlteTabelle As Integer
Public strGewaehlteSpalteDatum As String
Public intGewaehlteSpalteDatum As Integer
Public strGewaehlteSpalteMesswert As String
Public intGewaehlteSpalteMesswert As Integer
Public strErsterMesswert As String
Sub Daten_Laden()
Dim strTempWorkbook As String
Dim strDateiPfad As String
Dim strTabellenblatt As String
Dim strMesswert As String
Dim wsTabellen As Worksheet
Dim lngMesswertSpalte As Long
Dim lngDatumSpalte As Long
Dim lngZeilenzaehler As Long
Dim strTabellenName As String
Dim lngLetzteZeile As Long
Dim oWS_Temp As Worksheet
Dim oWS_Messwert As Worksheet
Set oTempWorkbook = Workbooks(TempWorkbook)
Set oWS_Temp = oTempWorkbook.Worksheets(sWSName_Temp)
strDateiPfad = Application.GetOpenFilename
Set oMesswertWorkbook = Workbooks.Open(strDateiPfad)
On Error GoTo Fehler
For Each wsTabellen In oMesswertWorkbook.Worksheets
usfDatenLaden.cbTabellenblatt.AddItem wsTabellen.Name
Next wsTabellen
usfDatenLaden.Show
'MsgBox strErsterMesswert
Set oWS_Messwert = oMesswertWorkbook.Worksheets(strGewaehlteTabelle)
MsgBox oWS_Temp.Name
lngLetzteZeile = oWS_Messwert.UsedRange.Rows.Count
lngMesswertSpalte = 2
oMesswertWorkbook.Worksheets(strGewaehlteTabelle).Select
oWS_Messwert.Range(oWS_Messwert.Cells(strErsterMesswert, intGewaehlteSpalteDatum), oWS_Messwert.Cells(lngLetzteZeile, intGewaehlteSpalteDatum)).Copy
'oTempWorkbook.Activate
'Der fehler tritt schon auf, wenn ich einfach nur die Andere Mappe aufrufen möchte, in die die Daten kopiert werden soll!
oWS_Temp.Range(oWS_Temp.Cells(1, 2), oWS_Temp.Cells(1, 2)).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Exit Sub
Fehler:
MsgBox "Fehler in Sub Fehler0" & vbCrLf & "Fehlernummer: " & Err.Number & _
vbCrLf & "Fehlerbeschreibung: " & Err.Description
End Sub
'Coder für die Boxen im Userform
Sub cbDatum_Change()
strGewaehlteSpalteDatum = usfDatenLaden.cbDatum
intGewaehlteSpalteDatum = usfDatenLaden.cbDatum.ListIndex + 1
End Sub
Sub cbTabellenblatt_Change()
Dim strMesswert As String
Dim lngAnzahlSpalten As Long
Dim wsAktiveTabelle As Worksheet
Dim intSpaltenzaehler As Integer
intGewaehlteTabelle = usfDatenLaden.cbTabellenblatt.ListIndex + 1
strGewaehlteTabelle = usfDatenLaden.cbTabellenblatt
lngAnzahlSpalten = oMesswertWorkbook.Worksheets(strGewaehlteTabelle).UsedRange.Columns.Count
For intSpaltenzaehler = 1 To lngAnzahlSpalten
cbDatum.AddItem Cells(1, intSpaltenzaehler)
Next intSpaltenzaehler
End Sub
Private Sub txtMesswertZeile_Change()
strErsterMesswert = usfDatenLaden.txtMesswertZeile.Value
End Sub
Private Sub OK_Click()
Unload Me
End Sub
Private Sub Abbruch_Click()
Unload Me
End
End Sub
Danke!
|