Sub test()
Dim strArr(2) As String, N As Integer
strArr(0) = "Eins"
strArr(1) = "Zwei"
strArr(2) = "Drei"
For N = LBound(strArr) To UBound(strArr)
MsgBox strArr(N)
Next N
End Sub
Gruß
Reinhard
Dim MePass() As String, A As Integer
'in der TextBox steht Pass1-Pass2-Pass3 usw.
MePass = Split(TextBox1.Text, "-")
For A = Lbound(MePass) To Ubound(MePass)
MsgBox "Passwort" & A + 1 & ": " & MePass(A)
Next A
Gruß Tino
Private Sub CommandButton1_Click()
Select Case TextBox1.Text
Case "eins"
MsgBox "Ber1 gesperrt" & Chr(13) & Chr(13) & "Ber2 und Ber3 entsperrt"
Case "zwei"
MsgBox "Ber2 gesperrt" & Chr(13) & Chr(13) & "Ber1 und Ber3 entsperrt"
Case "drei"
MsgBox "Ber3 gesperrt" & Chr(13) & Chr(13) & "Ber1 und Ber2 entsperrt"
Case Else
MsgBox "nix gesperrt"
End Select
End Sub
Gruß
Reinhard
Private Sub CommandButton1_Click()
Select Case TextBox1.Text 'Eingegebenes Passwort
Case "Pass1"
Call Ensperre1
Case "Pass2"
Call Ensperre2
Case "Pass3"
Call Ensperre3
Else
MsgBox "Pass falsch!"
End Select
End Sub
Dim WkS As Worksheet
Set WkS = ThisWorkbook.Worksheets("Eingabe")
WkS.Unprotect Password:="xx"
WkS.Cells.Locked = True
Select Case txtPasswort.Text
Case "mh"
'dieser bereich wird freigegeben
WkS.Range("D13:N1264").Locked = False
WkS.Range("N4,D5,F5").Locked = False
Case "rro"
'dieser bereich wird freigegeben
WkS.Range("M13:M1264").Locked = False
WkS.Range("N4,D5,F5").Locked = False
Case ""
'dieser bereich wird freigegeben
WkS.Range("N4").Locked = False
Case "as"
'dieser bereich wird freigegeben
WkS.Range("N4").Locked = False
Case Else
MsgBox "Passwort falsch!"
End Select
WkS.Protect Password:="xx"
Du muss Deine Tabelle am Ende wieder Schützen.
Gruß Tino
Sub aaTest()
Dim arrDaten(0 To 2) As String, intI As Integer
'Arraydaten zuweisen
arrDaten(0) = "1"
arrDaten(1) = "2"
arrDaten(2) = "3"
'Arraydaten anzeigen
For intI = LBound(arrDaten) To UBound(arrDaten)
MsgBox intI & ". Wert: " & arrDaten(intI)
Next
End Sub
Sub aaTest1()
Dim arrDaten, intI As Integer
'Arraydaten zuweisen
arrDaten = Array("1", "2", "3")
'Arraydaten anzeigen
For intI = LBound(arrDaten) To UBound(arrDaten)
MsgBox intI & ". Wert: " & arrDaten(intI)
Next
End Sub