Hilfe bei der Datenübertragung

Forumthread: Hilfe bei der Datenübertragung

27.08.2014 15:38:35

Frank

Hallo Zusammen!
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.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hilfe bei der Datenübertragung

27.08.2014 15:44:11

Frank
AW: Hilfe bei der Datenübertragung

27.08.2014 15:57:32

fcs
AW: Hilfe bei der Datenübertragung

27.08.2014 16:06:09

Frank

AW: Hilfe bei der Datenübertragung

27.08.2014 15:44:11

Frank

Hallo !
Kleiner Fehler:

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(lng, 1) = Sheets("Daten_Auszüge").Cells(lng, 3).Text
End If
Next
End Sub

So sieht mein zur Hälfte funktionierende Code aus.
Gruß Frank H.

AW: Hilfe bei der Datenübertragung

27.08.2014 15:57:32

fcs

Hallo Frank,
mit der Variablen i warst du ja schon auf dem richtigen weg.
ggf. vorher noch die QAltdaten im Blatt Buchungen löschen.
Gruß
Franz

Private Sub ComboBox1_Change()
Dim lng As Long, i As Long
'Altdaten ab Zeile 12 löschen
With Sheets("Buchungen")
lng = .Cells(.Rows.Count, 1).End(xlUp).Row
If lng >= 12 Then
.Range(.Cells(12, 1), .Cells(lng, 1)).ClearContents
End If
End With
i = 12
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
i = i + 1
End If
Next
End Sub

AW: Hilfe bei der Datenübertragung

27.08.2014 16:06:09

Frank

Hallo Franz!
Super, Super nochmals Super. Ich glaube mein Tag ist gerettet! Vielen Dank!
Gruß Frank H.

Beliebteste Forumthreads (12 Monate)

Forumthread: Hilfe bei der Datenübertragung

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread