Thema Datum  Von Nutzer Rating
Antwort
19.08.2014 13:51:45 tohra
Solved
20.08.2014 11:42:18 Gast15580
NotSolved
Rot UserForm, Datei laden und ComboBoxen füllen
21.08.2014 10:48:21 Gast83453
Solved
21.08.2014 10:59:10 tohra
Solved

Ansicht des Beitrags:
Von:
Gast83453
Datum:
21.08.2014 10:48:21
Views:
813
Rating: Antwort:
 Nein
Thema:
UserForm, Datei laden und ComboBoxen füllen

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!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
'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!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.08.2014 13:51:45 tohra
Solved
20.08.2014 11:42:18 Gast15580
NotSolved
Rot UserForm, Datei laden und ComboBoxen füllen
21.08.2014 10:48:21 Gast83453
Solved
21.08.2014 10:59:10 tohra
Solved