Werte von Zellen an Textboxen übergeben

[CaptainNemo]

Hallo Gemeinde,

ich habe folgende, teilweise funktionierenden Codes selbst hingekriegt, auch durch Recherche und vor allem viel Probiererei:

Modul Tabelle01(Dienstplan | ArbZeitAbr)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Count = 1 And Not Application.Intersect(Target, Range("D5:G35")) Is Nothing Then
       If Range("H40").Value = "" Then
           Call uf_ArbZeitUrlauDaten1.Show
       ElseIf Range("H43").Value = "" Then
           Call uf_ArbZeitUrlauDaten1.Show
       ElseIf Range("H44").Value = "" Then
           Call uf_ArbZeitUrlauDaten1.Show
       End If
   End If
   
End Sub

Userform uf_ArbZeitUrlauDaten1

Code:

Private Sub ufArbZeitUrlauDaten1_Initialize()

   TextBox1.Value = Sheets("Dienstplan | ArbZeitAbr").Cells(40, 8).Value
   TextBox2.Value = Sheets("Dienstplan | ArbZeitAbr").Cells(43, 8).Value
   TextBox3.Value = Sheets("Dienstplan | ArbZeitAbr").Cells(44, 8).Value
   Label5.Caption = Sheets("Dienstplan | ArbZeitAbr").Cells(3, 4).Text

End Sub

Private Sub CommandButton1_Click()
   
   Sheets("Dienstplan | ArbZeitAbr").Cells(40, 8).Value = TextBox1.Value
   Sheets("Dienstplan | ArbZeitAbr").Cells(43, 8).Value = TextBox2.Value
   Sheets("Dienstplan | ArbZeitAbr").Cells(44, 8).Value = TextBox3.Value
   Unload Me

End Sub

Bei der ersten Prozedur der Userform gibt es zwar keine Fehlermeldung, aber es funktioniert nichts! Die Werte der Zellen werden an die TextBoxen nicht übergeben und, weniger wichtig, der Zelleninhalt der Namenszelle nicht an das Label. Hab für alles schon die verschiedensten Varianten durchprobiert. (Leider funktioniert bei uns trotz - oder wegen - Excel 2016 manches nicht so wie bei anderen.)

Die Blattschutz-Kennwörter der angehängten Datei sind "leer", das für den VBE habe ich rausgenommen.

Dankende Grüße
Uwe

[Kuwer]

Hallo Uwe,

das Initialize-Ereignis heißt in jedem Userform

Private Sub UserForm_Initialize()

Gruß Uwe

[CaptainNemo]

KRASS ALTER!!! Habe nur das jetzt gemacht und alles funktioniert bis zur absoluten Geilheit! Bin froh, mal nicht so viel Arbeit gemacht zu haben. Zunächst hatte ich auch diese Sub-Bezeichnung, dann waren wohl andere Dinge nicht richtig und ich habe es mit meinem gewohnten Bezeichnungsschema probiert.

So! Nachdem ich vor einem halben Jahr die Datei nochmal ziemlich umgeworfen hatte, ist sie jetzt fertig. Sie kann jetzt von geistesschwachen mit Alzheimer bedient werden. Natürlich trifft das auf keinen meiner Kollegen zu. Aber einige Pädagogen des alten Schlages, die Dienstpläne machen müssen, sagen von sich selber, dass sie viel mehr, als den Compi einzuschalten, EDV-mäßig nicht drauf haben.

Die meisten Codes habe ich nur mit Unterstützung hinbekommen, einige stammen komplett von Foren-Profis, ein Code (Doppelpunkt automatisch setzen) und eine Formel (den Ostersonntag anhand der Jahreszahl berechnen) aus dem WWW.

Sicher wäre vieles an der Datei viel effizienter, hätte sie einer von euch erstellt. Zum Beispiel auch die bestimmt viel zu langen Formeln, mit der die Tagesarbeitszeiten berechnet werden. Man könnte die mit neueren Methoden garantiert pimpen. Dafür habe ich hierfür keine Hilfe benötigt, und sie funzt! Und das auf einem Rechner, bei dem ich mir, während er hochfährt, erstmal einen Kaffee mache!

Lustigerweise dauert die Ausführung des Makros auf dem "Reparieren!"-Button, mit dem die Rahmenformatierung auf Anfang gesetzt wird, jetzt, ohne Übertreibung, locker 6 mal so lange wie noch unter Excel 2010. Von ehemals unter 1/2 Sekunde, jetzt über 3 Sekunden.

excelhafte Grüße an alle
Uwe

[Kuwer]

Hi Uwe,

Zunächst hatte ich auch diese Sub-Bezeichnung, dann waren wohl andere Dinge nicht richtig und ich habe es mit meinem gewohnten Bezeichnungsschema probiert.

Guckst Du: Editor [09] Dropdowns in Modulen

Gruß Uwe

[CaptainNemo]

Das ist eine Weltverschörung! Solche Informationen werden unschuldigen Excel-Usern, die sich abrackern, gezielt verheimlicht!

Nein, ist das peinlich! Aber das Ganze hier geschieht bei mir bisher mit der "learning by doing"-Methode.