Danke! Danke!! Danke!!! Mit ein bisschen umstellen funktioniert das schon mal :-)) Sehr schön.
Trotzdem würde mich interessieren, wie man ein Public Sub anlegt.
Muss dazu extra ein Public-Modul angelegt werden oder kann ich das in eins der vorhandenen (, AutoClose, AppControls, AppSettings und AppHyperlinks) einschreiben?
Würde das ganze dann
Public sub?/function? ZuordnungSC()
.
.
.
end sub?/function?
in das modul schreiben
Deklariere ich das dann mit:
Dim ZuordnungSC As String? und wenn ja in der Userform oder im Modul, hab beides schon versucht, klappt beides irgendwie nicht :-(
und welche "Brücke" müsste ich einbauen, damit ich von den Userform auf das Modul zugreifen kann?
Wie gesagt, ist für mich noch alles ziemlich neu!
Danke im Voraus!!!
Holger schrieb am 18.03.2009 15:42:46:
Hallo Brauner,
warum schreibst nicht einfach SC=Tabelle11.Range("E28") ?
Wenn es komplizierter sein muss, musst du die Variable SC in einem Modul Public deklarieren, damit sie in anderen Bereichen ausgewertet werden kann.
Gruß
Holger
Brauner schrieb am 18.03.2009 12:15:45:
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!!! |