Userform Listbox Tabellen auswählen
30.04.2018 11:00:15
Marcus
ich habe quasi 2 Fragen.
1. Wenn der User entschieden ob er die Deutsche oder Englische Sprache möchte, erscheint als nächstes die u.a. MsgBox. Warum muss ich bei "JA" zweimal drücken? Was muss ich hier noch berücksichtigen?
Private Sub CommandButton1_Click()
If MsgBox("Sind Kriterien für Utilities mit technischem Klärungsbedarf (UmtK) zu berü _
cksichtigen?", vbYesNo + vbQuestion) = vbNo Then GoTo Zeile1
If MsgBox("Sind Kriterien für Utilities mit technischem Klärungsbedarf (UmtK) zu berü _
cksichtigen?", vbYesNo + vbQuestion) = vbYes Then Call UmtK.Show
Zeile1:
ActiveSheet.Unprotect Password:="..."
Range("B2").Value = "Nutzwertanalyse (Stand: Februar 2018)"
Range("B5").Value = "Beschaffungsmaßnahme:"
Range("B6").Value = "Projekt:"
2. Wenn der User bei der MsgBox "JA" drückt soll ein Fenster erscheinen mit den Arbeitsblä _
ttern die ausgeblendet sind (Blattschutz).
Dachte an Userform mit Listbox wo der User ankreuzen kann, welche Blätter er benötigt und per _
_
Button dann öffnet.
Die Blätter heißen
Vollst_Angebotes_komm
Vertragsbedingungen
Techn Qualität Angebots
Nachunternehmermanagement
Lieferantenqualität
Ausführungskonzept
Arbeitsicherheit
Umweltschutz
Bsp Fragen zur NWA
Folgender Versuch der Userform mit diversen Tests
Private Sub UserformUmtK_Initialize()
With UserFormUmtK.ListBox1
.AddItem "Vollständigkeit des Angebotes (kommerziell)"
.AddItem "Vertragsbedingungen"
.AddItem "Qualität des Angebotes (technisch)"
ListBox
ListBox1.ListStyle = fmListStyleOption
'Mehrere Elemente in der Listbox auswählen
ListBox1.MultiSelect = fmMultiSelectMulti
'With Worksheets(ListBox1.Text)
' worksSheets (Vollst_Angebotes_komm)
' .Visible = True
' .Selected
End Sub
'
Private Sub UserFormUmtK_Activate()
'Dim i As Integer
'For i = 1 To Sheets.Count
' If Sheets(i).Visible 2 Then ListBox1.AddItem Sheets(i).Name
'Next i
'End Sub
'For i = 0 To .ListCount = 1
' If .Selected(i) Then
' MsgBox .List(i)
'If ListBox1.Item("Vollständigkeit des Angebotes (kommerziell)") = True Then
'worksSheets(Vollst_Angebotes_komm).Activate
'Else
'End If
'
Private Sub ListBox1_Click()
'End Sub
Ich weiß etwas chaotisch, leider benötige ich VBA nur alle lange Jahre mal.
Hoffe die Informationen sind klar beschrieben, ansonsten
versuche ich gerne nähere Infos zu geben.
Für die Unterstützung vorab herzlichen Dank.
Mit freundlichen Grüßen
Marcus