Probleme mit ComboBox

Private Sub ComboBox1_Change() If Range("Stammdaten!q2") = 0 Then 'nur ausführen wenn nicht Speichern aufgerufen 'On Error GoTo Fehler Range("Stammdaten!q3") = 1 'Merker für Öffnen setzen Row = ComboBox1.ListIndex + 2 Sheets("ablage").Activate MsgBox (Row) '---> gibt sogar die Richige Zeile aus in der die Daten stehen Range("Stammdaten!C3").Value = Range("A" & Trim(Str(Row))).Value '<--- das funktioniert nicht, code greift nicht auf Blatt "ablage" zu 'Range("Stammdaten!C3").Value = "Test" '<--- das funktioniert Range("Stammdaten!q3") = 0 'Merker für Öffnen löschen Sheets("Stammdaten").Activate End If Exit Sub Fehler: 'Range("Stammdaten!q3")=0 'MsgBox ("Den Artikel gibt es nicht") End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'ComboBox1 einlesen Sheets("ablage").Activate i = ActiveSheet.UsedRange.Rows.Count + 1 'i = WorksheetFunction.CountA(ActiveSheet.Columns(6)) With ComboBox1 .ColumnCount = 7 .ColumnHeads = True .ListFillRange = "ablage!A2:G" & i .ColumnWidths = "3cm;4cm;4cm;4cm;4cm;2cm;1,5cm" End With Sheets("Stammdaten").Activate End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Raik

Dein zweiter Code lief, das würde ich bezweifeln


Private Sub ComboBox1_Change()
Dim Row As Long     ' Variablen sollten nicht einen Namen haben wie Befehle
If Range("Stammdaten!q2") = 0 Then   'nur ausführen wenn nicht Speichern aufgerufen
'On Error GoTo Fehler
Range("Stammdaten!q3") = 1      'Merker für Öffnen setzen
Row = ComboBox1.ListIndex + 2
Sheets("ablage").Activate
MsgBox (Row) '---> gibt sogar die Richige Zeile aus in der die Daten stehen
Range("Stammdaten!C3").Value = Range("A" & Trim(Str(Row))).Value  '<--- das funktioniert nicht, code greift nicht auf Blatt "ablage" zu
'Range("Stammdaten!C3").Value = "Test"          '<--- das funktioniert
Range("Stammdaten!q3") = 0      'Merker für Öffnen löschen
Sheets("Stammdaten").Activate
End If
Exit Sub
Fehler:
'Range("Stammdaten!q3")=0
'MsgBox ("Den Artikel gibt es nicht")
End Sub

'---> Hier nur als Info wie ich die Combo einlese


Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'ComboBox1 einlesen
Dim I As Long
With Sheets("ablage")
I = .UsedRange.Rows.Count + 1
'i = WorksheetFunction.CountA(ActiveSheet.Columns(6))
With ComboBox1
.ColumnCount = 7
.ColumnHeads = True
.RowSource = "ablage!A2:G" & I
.ColumnWidths = "3cm;4cm;4cm;4cm;4cm;2cm;1,5cm"
End With
End With
End Sub

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread