Daten übertragen
04.11.2014 13:56:41
Stefan
ich komme mal wieder nicht weiter und bitte um Hilfe.
Ich habe eine Userform erstellt auf der mittels einer Listbox und 8 Texboxen Daten eingetragen werden.
In der Listbox wir bestimmt in welches Tabellenblatt geschrieben wird.
Mit Commandbuton2 löse ich das eintragen aus.
Der Codeschnippsel sieht folgendermaßen aus:
Private Sub CommandButton2_Click()
Dim lngLR As Long
Dim intCount As Integer
Dim rngData As Range
lngLR = Worksheets(ListBox1.Text).Cells(Rows.Count, 2).End(xlUp).Row + 1
Set rngData = Worksheets(ListBox1.Text).Cells(lngLR, "B").Resize(1, 9)
For intCount = 1 To rngData.Cells.Count
rngData.Cells(intCount).Value = Me.Controls("TextBox" & intCount).Value
Next intCount
leeren
End Sub
Das klappt auch... aber....
Die Tabellenblätter die für die Datenaufnahme vorgesehen sind, habe ich mit Rahmen und Muster belegt.
Nun werden die Daten erst ans Ende der Formatierung geschrieben.
Außerdem habe ich in den einzelnen Spalten noch Überschriften, so das wenn ich die Daten eigentlich erst ab Zelle B7 eintragen möchte.
Weiterhin habe ich aus optischen Gründen, ich weiß, könnte ich einfach rausnehmen, noch 2 Spalten als Leerspalten. Die Daten sollen eigentlich in die Spalten B7:F7 und H7:I7 und K7 eingetragen werden.
Dieses könnte ich "austricksen" wenn ich in der UF 2 weiter TextBoxen einfüge und die nicht anzeigen lasse. So würde immer ein leerer Wert übergeben werden.
Geht aber ja vielleicht auch anders.
Über Hilfe würde ich mich freuen
Gruß
Stefan
PS:Wenn es einfacher ist kann ich die Mappe auch hochladen