Thema Datum  Von Nutzer Rating
Antwort
01.12.2008 16:08:49 Pepe
NotSolved
Blau Aw:UserForm in Excel durch If-Anweisung öffnen
 01.12.2008 18:08:58 jh
NotSolved

Ansicht des Beitrags:
Von:
jh		 Datum:
01.12.2008 18:08:58		 Views:
867		 Rating:
     
Antwort:
  Ja
Thema:
Aw:UserForm in Excel durch If-Anweisung öffnen
Hallo,

wo hast du denn deine Listbox, auf einem Tabellenblatt oder
in einer Form? Der Code gehört auf jeden Fall in den Bereich
des betreffenden Objektes (Tabelle oder UserForm).

Und wann soll die gewünschte Aktion ausgelöst werden, bei der
einfachen Auswahl eines Listeneintrages, mit einem Doppelklick
darauf oder durch einen zusätzlichen CommandButton? Je nachdem
musst du den Code in eine der folgenden Prozeduren schreiben:

Private Sub ListBox1_Change()
' einfache Auswahl löst die Aktion aus
End Sub

Private Sub ListBox1_DblClick()
' Doppelklick auf einen Listeneintrag
End Sub

Private Sub CommandButton1_Click()
' zusätzlicher Button
End Sub

Deine UserForm zeigst du an mit dem Befehl

If ListBox1.Value = "irgendwas" Then
UserForm1.Show [vbModal/vbModeless]
End If

Wenn du den Parameter vbModal/vbModeless weglässt, wird die Form
gebunden angezeigt (Standard), das heißt während die Form angezeigt
wird, kann der Benutzer nicht in die Tabelle wechseln. Mit dem
Parameter vbModeless besteht diese Möglichkeit.

Der Code für das Übertragen der Benutzereingaben in der Form in
eine Tabelle gehört in den Codebereich der Form. Auch hier kommt
es darauf an, durch welches Ereignis das Speichern ausgelöst werden
soll (üblicherweise einen CommandButton in der Form):

Private Sub CommandButton1_Click()
With Worksheets("Tabelle3")
.Range("A1").Value = TextBox1.Value
.Range("A2").Value = TextBox2.Value
' usw. ...
End With
ThisWorkbook.Save ' (wenn gewünscht)
' oder:
' ThisWorkbook.SaveAs "C:\Excel\Irgendwas.xls"
UserForm1.Hide ' Form ausblenden
End Sub

Für alle Objekte musst du natürlich die in deinem Projekt verwendeten
Namen einsetzen.

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
01.12.2008 16:08:49 Pepe
NotSolved
Blau Aw:UserForm in Excel durch If-Anweisung öffnen
 01.12.2008 18:08:58 jh
NotSolved