Hilfe bei der Datenübertragung
27.08.2014 15:38:35
Frank
Ich wollte 'ne Datei hoch laden, das schlug leider mehrfach fehl.
So versuche ich nun mein Problem zu schildern.
Folgenden Code will ich nutzen, nur leider klappt es nur zur Hälfte:
Private Sub ComboBox1_Change()
For lng = 12 To Sheets("Daten_Auszüge").UsedRange.Rows.Count + 1
If Sheets("Daten_Auszüge").Cells(lng, 1) = Sheets("Buchungen").ComboBox1 Then
Sheets("Buchungen").Cells(i, 1) = Sheets("Daten_Auszüge").Cells(lng, 3).Text
End If
Next
End Sub
Bei der Auswahl eines Monats aus der ComboBox werden die dazugehörigen Daten übertragen, aber in die Tabelle "Buchungen" auch in die Zeilen wo sie im Blatt "Daten_Auszüge" stehen. Ich möchte aber die gewünschten Daten immer ab Zeile 12 im Blatt "Buchungen" haben. Was muss ich in meinem Code abändern?Bitte um Hilfe und vorab Danke!
Gruß Frank H.