Userform

Hallo,
habe mal wieder ein VBA-Problem das ich slleine nicht lösen kann und bei dem mir online suchen auch noch nicht weitergeholfen hat...
Ich versuche mal alles sehr ausführlich zu beschreiben:
Auf Tabellenblatt "Grundstück" soll wenn Zelle "N56" angekreutz wird durch folgende formel "=WENN(N56="O";Userformaufruf();"")" in Zelle "R56" ein Userform aufgerufen werden. Dafür benutze ich den Code:
Function Userformaufruf()
UserForm1.Show
End Function Soweit so gut das klappt eigentlich alles noch.
Dann befinden sich auf dem Userform 3 Textboxen und ein Button. In Textbox1 und Textbox2 soll der Nutzer später eintragen können wodurch in Textbox3 dann das Produkt der beiden Werte ausgerechnet werden soll.
Das wäre mein erstes Problem hierfür habe ich keinen Code!
Dann sollte der Wert der Textbox3 in das Tabellenblatt "Gewichtung" in Zelle AN8 übernommen werden sobald der Button gedrückt wird und das ganze soll gleichzeitig damit geschlossen werden. Das habe ich mit folgendem Code probiert funktioniert so aber nicht :P

Private Sub CommandButton1_Click()
Sheets("Gewichtung").Range("AN8").Value = TextBox3.Text
Unload Me
End Sub

Kann mir jemand weiterhelfen mit den benötigten Codes?
Danke für jeden Tipp grüße Jo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Sheets("Grundstück").Range("AN8").Value = Me.TextBox3.Text Unload Me End Sub Private Sub TextBox1_Change() On Error GoTo hell 'erzeugt ERROR wenn keine Zahlen in den Textboxen stehen Debug.Print IsNumeric(Me.TextBox1.Text * 1) Debug.Print IsNumeric(Me.TextBox2.Text * 1) Me.TextBox3.Text = CInt(Me.TextBox1.Text * 1) * CInt(Me.TextBox2.Text * 1) GoTo heaven: hell: Me.TextBox3.Text = "ungültige Eingabe" heaven: End Sub Private Sub TextBox2_Change() On Error GoTo hell 'erzeugt ERROR wenn keine Zahlen in den Textboxen stehen Debug.Print IsNumeric(Me.TextBox1.Text * 1) Debug.Print IsNumeric(Me.TextBox2.Text * 1) Me.TextBox3.Text = CInt(Me.TextBox1.Text * 1) * CInt(Me.TextBox2.Text * 1) GoTo heaven: hell: Me.TextBox3.Text = "ungültige Eingabe" heaven: End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) [... dein alter Code ...] If Not Intersect(Target, Range("N56")) Is Nothing Then If Target.Value = "O" Then UserForm1.Show End If End Sub

Hi Jomo,
danke für das Lob! Mein Code ist, wie ich schon schrieb, ziemlich schlecht ... aber funktional ist funktional :-)
Den Blattschutz schaue ich mir gleich mal an, melde ich mich später zu.
Ach und kannst du mir erklären warum ich zellen nicht verbinden sollte?
Zum Thema "Zellen verbinden" findest du in der Recherche teils religios-fanatisch anmutende Meinungen! Wohl kaum ein anderes Thema teilt seit Jahren die Herber-Community in den Maße :-)
Mal ein Beispiel (neue Tabelle, schreib in A7 "Hallo")
folgendes VBA zeigt dir die letzte Zeile:
msgbox cells(rows.count,1).end(xlup).row
Aufgabe: Füge unter der letzten Zeile etwas ein! Das geht dann so:
range("A"& cells(rows.count,1).end(xlup).row + 1).value = "Welt"
jetzt steht in der Tabelle:
A7: Hallo
A8: Welt
probier das ganze nochmal von vorne, aber diesmal verbinde die Zellen A7:A10 und schreibe "Hallo" in den Zellenverbund!
Nächstes Beispiel:
verbinde A1:B1 horizontal.
Jetzt versuche irgendwo, die Formel =SUMMEWENN(A:A;"Hallo";B:B) zu erzeugen. Klar, tippen kannst du die ... aber normalerweise macht man das mit Mausclicks? Ganz schnell bekommst du die sinnfreie Formel
=SUMMEWENN(A:B;"Hallo";A:B) --- und das merkst du in der Hitze des Gefechts nicht, gerade wenn nicht nur oben, sondern auch "irgendwo" in der Tabelle Zellenverbünde bestehen!
Ganze Spalten / ganze Zeilen Formatieren funktioniert nicht mehr richtig, sobald Verbundzellen im Ziel sind
Dann könnte ich noch 100 Beispiele bieten, in denen valider VBA-Code bei verbundzellen nicht mehr funktioniert - aber das darfst du mir einfach glauben :-)
Die alternative zum horizontalen Zellenverbund, "Format, über auswahl zentrieren" bringt EXAKT das gleiche optische Ergebniss, aber keinerlei der Nachteile!
Für vertikalen Zellenverbund gibt es leider keine richtige Alternative - trotzdem rate ich auch von denen ab.
Damit Luc:-? nicht schimpft, werde ich noch ein paar Pro-Argumente nennen (mit meinen sarkastischen Anmerkungen in kursiv und Klammern)
- vertikal verbundene Zellen entsprechen dem aktuellen Tabellenstandart in HTML (weil wir den ganzen Tag nichts anderes machen, als XLSM nach HTML zu exportieren ..)
- es gibt tatsächlich eine Excelformel-Variation (oder ein Bug-Abusing) in der bestimmte Matrixfunktionen NUR innerhalb verbundzellen funktionieren (aber ... naja, das braucht man halt nur ganz ganz selten bis nie)
- man kann tatsächlich fast jedes VBA-Problem mit verbundzellen umgehen, indem man mit .mergearea die Bereiche richtig anspricht (oder man verzichtet drauf und spart sich 10 Zeilen Code pro Zellenaktion)
Wenn du mehr zu diesem Thema lesen willst, kannst du dir mal am Wochenende Zeit nehmen und die Worte "Verbundene Zellen Luc Boris" in die Forumsrecherche eingeben.
Grüße,
Klaus M.vdT.

Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In Worksheets If Not ws.Name = "Gewichtung" Then ws.Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True, _ UserInterfaceOnly:=True ws.EnableSelection = xlUnlockedCells ws.EnableAutoFilter = True End If Next End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform

9 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)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread