Hilfe zur Datei von FCS

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
die Controlsource-Eigenschaft der Steuerelemente kann immer nur mit einer Zelle in einem Tabellenblatt verknüpft werden.
Wenn du immer nur gespeicherte Daten in den Formularen eintragen und anzeigen/drucken willst, dann kannst du auch vom Userform aus nur die ID oder die Vorgangs-Nummer im Formular eintragen, die restlichen Daten im Formular werden dann per Formel (SVERWEIS oder INDEX+VERGLEICH) aus den Blättern mit den Daten geholt. Das wäre die von mir bevorzugte Lösung, da so Anpassungen an den Formularblättern gemacht werden können, ohne das man im Code des Userform Änderungen machen muss.
Das Zellenweise ausfüllen der Formulare per Code im Userform geht natürlich auch. Wenn du die Userforminhalte im Formular anzeigen willst bevor diese in den Datentabellen gespeichert sind, dann muss du es so machen.
Nachfolgend entsprechende Code-Beispiele. Wichtig: Bevor von einem Userform aus die Seitenvorschau angezeigt wird muss das Userform ausgeblendet werden, sonst kommt es zu einem Excelabsturz, da Userform und Seitenvorschau in Excel nicht gleichzeitig angezeigt werden können.
Ansonsten kann man abhängig vom Typ der Daten die in den zur Zeit noch provisorischen Spalten der Tabelle "Vorgang" stehen die Eingaben noch komfortabler gestalten. Textboxen sind nicht immer ideal.
Checkboxen: für WAHR/FALSCH, Ankreuzen (in Tabelle wird ein "X" oder nichts eingetragen)
OptionButtons: Bis 5 Optionen - ich bevorzuge hier Listboxen, da einfacher in der Auswertung
Listboxen: Auswahl aus fester Liste von Werten
Comboboxen: Auswahl aus Liste von Text-Werten - mit der Möglichkeit auch andere Werte einzugeben.
Das erforder dann zwar etwas mehr Programmieraufwand für das Einlesen und Zurückschreiben von Werten, aber lanfristig zahlt es sich aus, da die Eingabe erleichtert wird und fehlerhafte Eingaben reduziert werden.
Gruß
Franz

Private Sub CommandButton6_Click()
'Formular1 anzeigen - nur ID - restliche Daten werden per Formel berechnet
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte erst einen Namen auswählen!"
Exit Sub
End If
With Worksheets("Formular1")
.Range("A2") = Val(Me.TextBox_ID.Text)
.Calculate
Me.Hide 'zwingend erforderlich, da sonst Excelabsturz
.PrintPreview
Me.Show
End With
End Sub
Private Sub CommandButton7_Click()
'Formular1 anzeigen - vorher Userformdaten eintragen
Call prcFormular1_ausfuellen
Me.Hide 'zwingend erforderlich, da sonst Excelabsturz
Worksheets("Formular1").PrintPreview
Me.Show
End Sub
Private Sub prcFormular1_ausfuellen()
'Daten aus Userform in das Formular1 übertragen
With Worksheets("Formular1")
.Range("A2") = Me.TextBox_ID.Text
.Range("C3") = Me.TextBox16.Text 'Nachname
.Range("C4") = Me.TextBox1.Text 'Vorname
'...usw.
End With
End Sub

Private Sub CommandButton7_Click() 'Formular1 anzeigen - nur ID - restliche Daten werden per Formel berechnet If Me.ComboBox1.ListIndex = -1 Then MsgBox "Bitte erst einen Namen auswählen!" Exit Sub End If With Worksheets("Formular1") .Range("C3") = Me.TextBox1.Text 'Nachname .Range("C4") = Me.TextBox3.Text 'Vorname .Range("A2") = Val(Me.TextBox_ID.Text) .Range("A2") = Me.TextBox_ID.Text .Calculate Me.Hide 'zwingend erforderlich, da sonst Excelabsturz .PrintPreview Me.Show End With End Sub

Hallo Franz,
habe das Macro angepasst. Sowie du das mit dem ändern und löschen mit eingebaut hast werde ich es mit einbauen.
Eine Funktion habe ich noch gefunden.


Sub suchen4()
If Range("a1").Value = "Alle" Then
Selection.AutoFilter Field:=1
Else
Selection.AutoFilter Field:=1, Criteria1:="=*" & Range("a1").Value & "*"
End If
End Sub

kannst Du dies so umbauen das die suche der Werte mit deinem globalen Filter funktioniert? Das wäre eine super Funktion um in der grossen Datenbank mal schnell etwas zu finden.
Habe am WE mal versucht die beiden Funktionen Datensatz ändern und Datensatz löschen mit einer zweiten UF nach dein Muster zu bauen ist aber kläglich gescheitert. Hälst Du dies für eine Gute oder schlechte Idee dafür eine extra userform zu bauen?
Bekommst Du das noch hin das in dem Rollfeld Tabelle. " Vorgang" ( Nachname ) die Kundendaten nach Kundennummer sortiert werden?
PS.: Ich mache mir sorgen wie ich mich Dir gegenüber erkenntlich zeigen kann. Ich weiss das Du deine Hilfe nicht aus eigennutz anbietest. Und ich dich damit beleidigen könnte. Deshalb kam mir folgende Idee: Ich bin Trainer einer Fussballjugendmannschaft bis 13 Jahre. Und ich werde mit Ihnen dann ein MC Donalds Tag in deinem Namen machen. Da sind Sie bestimmt happy. Oder hast Du eine bessere Idee?
Liebe Grüße Thomas

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hilfe zur Datei von FCS

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread