|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Ein Makro in mehreren Userform verwenden |
18.03.2009 12:15:45 |
Brauner |
|
|
|
18.03.2009 15:42:46 |
Holger |
|
|
|
20.03.2009 10:30:04 |
Brauner |
|
|
|
22.03.2009 09:59:57 |
Holger |
|
|
Von:
Brauner |
Datum:
18.03.2009 12:15:45 |
Views:
1805 |
Rating:
|
Antwort:
|
Thema:
Ein Makro in mehreren Userform verwenden |
Hallo, ich lerne gerade erst den Umgang mit VB und habe ein Problem:
Ich habe ca. 50 Userform und in jeder Userform habe ich nach
Private Sub UserForm_Activate()
.
.
.
eine If-Funktion
If Tabelle11.Range("E28") = "SC Schwerin" Then
SC = "SC Schwerin, "
End If
If Tabelle11.Range("E28") = "SC Hamburg" Then
SC = "SC Hamburg, "
End If
If Tabelle11.Range("E28") = "SC Neumünster" Then
SC = "SC Neumünster, "
End If
If Tabelle11.Range("E28") = "SC Rostock" Then
SC = "SC Rostock, "
End If
Nun möchte ich die Anwendung verkleinern, indem ich die If-Funktion in ein Modul? abspeicher und in jeder Userform einfach eine "Call" ergänze, die dann auf die If Funktion zugreift
Ich habe mir das wie folgt gedacht
Private Sub UserForm_Activate()
Call ZuordnungSC
.
.
.
end sub
Im Modul? (egal welches?) Die Moule heißen: AutoOpen, AutoClose, AppControls, AppSettings und AppHyperlinks (Hab das Programm so übernommen und die Module nicht selbst erstellt.
habe ich dann
Sub ZuordnungSC()
If Tabelle11.Range("E28") = "SC Schwerin" Then
SC = "SC Schwerin, "
End If
If Tabelle11.Range("E28") = "SC Hamburg" Then
SC = "SC Hamburg, "
End If
If Tabelle11.Range("E28") = "SC Neumünster" Then
SC = "SC Neumünster, "
End If
If Tabelle11.Range("E28") = "SC Rostock" Then
SC = "SC Rostock, "
End If
End Sub
Aber irgendwie klappt das alles nicht. VB-Hilfe und fleißiges googlen konnten mir bisher leider nicht helfen.
Wie gesagt, bin VB Anfänger.
Was mach ich verkehrt? Hab auch schon Sachen wie Public Function usw. versucht, weiß aber auch da nicht, wie das ganz genau funktioniert.
Für Hilfe wäre ich sehr dankbar!!! |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Ein Makro in mehreren Userform verwenden |
18.03.2009 12:15:45 |
Brauner |
|
|
|
18.03.2009 15:42:46 |
Holger |
|
|
|
20.03.2009 10:30:04 |
Brauner |
|
|
|
22.03.2009 09:59:57 |
Holger |
|
|