Ideen oder Vorschläge für mein Problem

Hallo zusammen
Habe leider ein fast unlösbares Problem wo ich mit meinen Kenntnissen nicht mehr weiter weiß
es geht um eine Userform mit Multipage Combobox und Textboxen mit Diversen speicherungen in verschiedenen Tabellen und Zeilen
es sind immer 3 Textboxen und die jeweils 8mal untereinander sind
wo jeweils ein wert eingetragen wird
Dieser wert sollte je nach auswahl der Combobox auf die gewünschte Tabelle und gewünschte zeile kopiert werden
und das zieht sich über die ganzen Multipagen
Habe zurzeit zwar geschaft das die richtige Tabelle angesprochen wird und die richtige zeile - aber es wird versetzt abgespeichert und das nur von der 1 page
Mein jetziges ergebnis
Dim mySheet As String
Dim lngIndex As Long
mySheet = ComboBox1.Value
With Worksheets(mySheet)
With .Cells(8, .Columns.Count).End(xlToLeft).Offset(0, 1)
For lngIndex = 1 To 3
.Offset(, lngIndex - 1).Value = _
Controls("Audit" & CStr(lngIndex)).Text
Next
With Worksheets(mySheet)
With .Cells(10, .Columns.Count).End(xlToLeft).Offset(0, 1)
For lngIndex = 4 To 6
.Offset(, lngIndex - 1).Value = _
Controls("Audit" & CStr(lngIndex)).Text
Next
With Worksheets(mySheet)
With .Cells(26, .Columns.Count).End(xlToLeft).Offset(0, 1)
For lngIndex = 7 To 9
.Offset(, lngIndex - 1).Value = _
Controls("Audit" & CStr(lngIndex)).Text
Next
With Worksheets(mySheet)
With .Cells(27, .Columns.Count).End(xlToLeft).Offset(0, 1)
For lngIndex = 10 To 12
.Offset(, lngIndex - 1).Value = _
Controls("Audit" & CStr(lngIndex)).Text
Next
With Worksheets(mySheet)
With .Cells(36, .Columns.Count).End(xlToLeft).Offset(0, 1)
For lngIndex = 13 To 15
.Offset(, lngIndex - 1).Value = _
Controls("Audit" & CStr(lngIndex)).Text
Next
With Worksheets(mySheet)
With .Cells(37, .Columns.Count).End(xlToLeft).Offset(0, 1)
For lngIndex = 16 To 18
.Offset(, lngIndex - 1).Value = _
Controls("Audit" & CStr(lngIndex)).Text
Next
With Worksheets(mySheet)
With .Cells(41, .Columns.Count).End(xlToLeft).Offset(0, 1)
For lngIndex = 19 To 21
.Offset(, lngIndex - 1).Value = _
Controls("Audit" & CStr(lngIndex)).Text
Next
With Worksheets(mySheet)
With .Cells(42, .Columns.Count).End(xlToLeft).Offset(0, 1)
For lngIndex = 22 To 24
.Offset(, lngIndex - 1).Value = _
Controls("Audit" & CStr(lngIndex)).Text
Next
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End Sub
Brauche dringend Ideen oder Vorschläge
Userbild

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Worksheets(mySheet) With .Cells(8, .Columns.Count).End(xlToLeft).Offset(0, 1) For lngIndex = 1 To 3 .Offset(, lngIndex - 1).Value = _ Controls("Audit" & CStr(lngIndex)).Text Next End With With .Cells(10, .Columns.Count).End(xlToLeft).Offset(0, 1) For lngIndex = 4 To 6 .Offset(, lngIndex - 1).Value = _ Controls("Audit" & CStr(lngIndex)).Text Next End With 'u.s.w. End With 'für my sheet...

Hallo Alex,
scheinbar sind deine Textboxen nicht immer alle ausgefüllt.
Dadurch ist die letzte ausgefüllte Zelle in den einzelnen Zeilen in unterschiedlichen Spalten.
Im Makro ermittelst du für jede auszufüllende Zeile die Startspalte neu und es kommt bei der von dir verwendeten Methode zu den versetzten Eintragen.
Lösungsweg(e):
1. die Startspalte für die Einträge wird zu Beginn einmal ermittelt und dann für alle Zeilen benutzt.
Die folgende Methode ist aber nur vewendbar, wenn es eine Zeile gibt in der die letzte Spalte immer ausgefüllt ist.

        'letzte Spalte mit Inhalt in Zeile 8 - evtl. andere Zeile nehmen _
um letzte ausgefüllte Spalte zu ermitteln
lngSpalte = .Cells(8, .Columns.Count).End(xlToLeft).Column

Ansonsten muss man die letzte ausgefüllte Spalte (bzw. die nächste auszufüllende Spalte) anders ermitteln.
2. Beim Übertragen der Textbox-Inhalte ins Tabellenblatt wird immer mindestens ein Hochkomma eingetragen - dieses bleibt in der Anzeige unsichtbar aber die Zelle wird von Excel als ausgefüllt betrachtet.
Dein Makro muss dann etwa wie folgt aussehen.
Ich hab auch noch eine Variante erstellt, die meiner Meinung nach etwas übersichtlicher ist.
LG
Franz


Sub Test()
Dim mySheet As String
Dim lngIndex As Long
Dim lngSpalte As Long
Dim wks As Worksheet
mySheet = ComboBox1.Value
Set wks = Worksheets(mySheet)
With wks
'letzte Spalte mit Inhalt in Zeile 8 - evtl. andere Zeile nehmen _
um letzte ausgefüllte Spalte zu ermitteln
lngSpalte = .Cells(8, .Columns.Count).End(xlToLeft).Column
'nächste freie Spalte
lngSpalte = lngSpalte + 1
With .Cells(8, lngSpalte)
For lngIndex = 1 To 3
.Offset(, lngIndex - 1).Value = _
"'" & Controls("Audit" & CStr(lngIndex)).Text
Next
End With
With .Cells(10, lngSpalte)
For lngIndex = 4 To 6
.Offset(, lngIndex - 1).Value = _
"'" & Controls("Audit" & CStr(lngIndex)).Text
Next
End With
With .Cells(26, lngSpalte)
For lngIndex = 7 To 9
.Offset(, lngIndex - 1).Value = _
"'" & Controls("Audit" & CStr(lngIndex)).Text
Next
End With
With .Cells(27, lngSpalte)
For lngIndex = 10 To 12
.Offset(, lngIndex - 1).Value = _
"'" & Controls("Audit" & CStr(lngIndex)).Text
Next
End With
With .Cells(36, lngSpalte)
For lngIndex = 13 To 15
.Offset(, lngIndex - 1).Value = _
"'" & Controls("Audit" & CStr(lngIndex)).Text
Next
End With
With .Cells(37, lngSpalte)
For lngIndex = 16 To 18
.Offset(, lngIndex - 1).Value = _
"'" & Controls("Audit" & CStr(lngIndex)).Text
Next
End With
With .Cells(41, lngSpalte)
For lngIndex = 19 To 21
.Offset(, lngIndex - 1).Value = _
"'" & Controls("Audit" & CStr(lngIndex)).Text
Next
End With
With .Cells(42, lngSpalte)
For lngIndex = 22 To 24
.Offset(, lngIndex - 1).Value = _
"'" & Controls("Audit" & CStr(lngIndex)).Text
Next
End With
End With 'wks
End Sub

Variante

Sub Test_2()
Dim mySheet As String
Dim lngIndex As Long, Box1 As Long, Box2 As Long
Dim lngSpalte As Long, lngZeile As Long
Dim wks As Worksheet
mySheet = ComboBox1.Value
Set wks = Worksheets(mySheet)
With wks
'letzte Spalte mit Inhalt in Zeile 8 - evtl. andere Zeile nehmen _
um letzte ausgefüllte Spalte zu ermitteln
lngSpalte = .Cells(8, .Columns.Count).End(xlToLeft).Column
'nächste freie Spalte
lngSpalte = lngSpalte + 1
For lngZeile = 8 To 42
'1. Textbox-Nr. für die auszufüllenden Zeilen setzen
Select Case lngZeile
Case 8: Box1 = 1: Box2 = 3
Case 10: Box1 = 4: Box2 = 6
Case 26: Box1 = 7: Box2 = 9
Case 27: Box1 = 10: Box2 = 12
Case 36: Box1 = 13: Box2 = 15
Case 37: Box1 = 16: Box2 = 18
Case 41: Box1 = 19: Box2 = 21
Case 42: Box1 = 22: Box2 = 24
Case Else
Box1 = 0: Box2 = 0
End Select
If Box1 > 0 Then
'Textboxinhalte in Zeile eintragen
With .Cells(lngZeile, lngSpalte)
For lngIndex = Box1 To Box2
.Offset(, lngIndex - 1).Value = _
"'" & Controls("Audit" & CStr(lngIndex)).Text
Next
End With
End If
Next
End With 'wks
End Sub

Beliebteste Forumthreads (12 Monate)

Ideen oder Vorschläge für mein Problem

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ideen oder Vorschläge für mein Problem

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread