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