Irgendwas stimmt nicht

Computer: Software & Programmierung Office Software
1

Beim Start des Programmes sollten untenstehende Werte eingetragen werden. Beim öffnen von Userform1 sollten/sind alle Listenfelder blau aktiviert.
Ich habe den Eindruck das funktioniert nur zufällig (:smile:). Vor allem der Wert der in „f8“ eingetragen werden sollte geht meist verloren. Wenn ich dann vergesse diese Listbox anzuclicken stürzt das Programm ab weil ohne diesen Wert nicht gerechnet werden kann. „Keine“ wird im Programm natürlich in eine Zahl umgewandelt.
Die Werte werden alle über Listboxen eingegeben. Controlsource ist den entsprechenden Zellen zugeordnet.
Oder wird die Startposition ( Initialisierung ) etwa anders gemacht?

Private Sub Workbook_Open()
ActiveWorkbook.Worksheets(„Tabelle1“).Activate
ActiveSheet.Range(„c2“) = 80
ActiveSheet.Range(„c3“) = 200
ActiveSheet.Range(„c4“) = 2000
ActiveSheet.Range(„f4“) = „DA4“
ActiveSheet.Range(„f5“) = „DA4“
ActiveSheet.Range(„f6“) = „DL050T2E“
ActiveSheet.Range(„f8“) = „Keine“
ActiveSheet.Range(„f9“) = „DA6“
ActiveSheet.Range(„f10“) = „DA6“
ActiveSheet.Range(„i8“) = 1
ActiveSheet.Range(„b38“) = 1
ActiveSheet.Range(„b39“) = 1
ActiveSheet.Range(„N30“) = „Cotton“
UserForm1.Show

Vielen Dank für Eure Hilfe
Schöne Frühlingsgrüsse

2

also…

  1. Bitte ein Aussagekräftiges Topic verwenden
  2. Bei Code das Pre-Tag verwenden
  3. Der Code gefällt mir absolut nicht…
    Activesheet bei vorherigem Select?

Du musst erst gar nicht rumspringen und ein Range(„x2“) = wert sollte meines Wissens auch nicht funktionieren.
Versuchs mal mit
Range(„Tabelle1!c2“).value = 80
usw

Grüsse
Munich

3

Hallo Heiner Gehrlein.

Den folgenden Code habe ich ausprobiert. Es geht nichts „verloren“.

Private Sub Workbook\_Open()
 With Tabelle1
 .Cells(2, 3) = 80
 .Cells(3, 3) = 200
 .Cells(4, 3) = 2000
 .Cells(4, 6) = "DA4"
 .Cells(5, 6) = "DA4"
 .Cells(6, 6) = "DL050T2E"
 .Cells(8, 6) = "Keine"
 .Cells(9, 6) = "DA6"
 .Cells(10, 6) = "DA6"
 .Cells(8, 9) = 1
 .Cells(38, 2) = 1
 .Cells(39, 2) = 1
 .Cells(30, 14) = "Cotton"
 End With
 UserForm1.Show
End Sub

Vielleicht hilft das ja schon weiter.

Viele Grüße
Carsten