21.12.2014, 20:07
Alter Thread ist geschlossen, sieh aber letztes Post
Einsargen (13 Striche sammeln), Anzahl Kegler verringert sich, Teil 2
Hallo @all Lesende
bin nun in der Lage das Szenario per Formular zu händeln,
anbei die Probe-Tabelle
CEF-Einsargen 1.xlsm (Größe: 67,75 KB / Downloads: 6)
mit diesem Code hole ich untereinanderstehende Ergebnisse in eine Zeile
Frage: Nun sollen die Einträge untereinander, aber in die nächste leere Spalte eingetragen werden. Erste belegte Spalte A (Namen) ab Spalte B nach rechts die Spaltenüberschriften W1, W2, W3 usw.
Wenn ich richtig gelesen habe geht das mit Offset.
Aber wie?
Kann mir da jemand helfen?
Ich hoffe auf eure Mithilfe
Nächste Fragestellung, wie den Verlierern die Werte laut ihrer Platzierung zuweisen? Tabellenbereich Tabelle2!K2:L13
Einsargen (13 Striche sammeln), Anzahl Kegler verringert sich, Teil 2
Hallo @all Lesende
bin nun in der Lage das Szenario per Formular zu händeln,
anbei die Probe-Tabelle

mit diesem Code hole ich untereinanderstehende Ergebnisse in eine Zeile
Code:
Private Sub CmdSpaltenweise_eintragen_Click()
Dim lngZeile As Long
With Worksheets("Ergebnisse2")
lngZeile = IIf(Len(.Cells(.Rows.Count, 2)), .Rows.Count, .Cells(.Rows.Count, 1).End(xlUp).Row) + 1
.Cells(lngZeile, 1).Value = Cbo1_Einsargen.Text
.Cells(lngZeile, 2).Value = Cbo2_Einsargen.Text
.Cells(lngZeile, 3).Value = Cbo3_Einsargen.Text
.Cells(lngZeile, 4).Value = Cbo4_Einsargen.Text
.Cells(lngZeile, 5).Value = Cbo5_Einsargen.Text
.Cells(lngZeile, 6).Value = Cbo6_Einsargen.Text
.Cells(lngZeile, 7).Value = Cbo7_Einsargen.Text
.Cells(lngZeile, 8).Value = Cbo8_Einsargen.Text
.Cells(lngZeile, 9).Value = Cbo9_Einsargen.Text
.Cells(lngZeile, 10).Value = Cbo10_Einsargen.Text
.Cells(lngZeile, 11).Value = Cbo11_Einsargen.Text
.Cells(lngZeile, 12).Value = Cbo12_Einsargen.Text
End With
End Sub
Frage: Nun sollen die Einträge untereinander, aber in die nächste leere Spalte eingetragen werden. Erste belegte Spalte A (Namen) ab Spalte B nach rechts die Spaltenüberschriften W1, W2, W3 usw.
Wenn ich richtig gelesen habe geht das mit Offset.
Aber wie?
Kann mir da jemand helfen?
Ich hoffe auf eure Mithilfe

Nächste Fragestellung, wie den Verlierern die Werte laut ihrer Platzierung zuweisen? Tabellenbereich Tabelle2!K2:L13