Hilfe bei Case Anweisung
12.08.2022 09:13:00
Johann
habe da ein kleines Problem.
Ich habe in einer Datei 2 Tabellenblätter("Original" und "Tabelle2"). Im ersten Tabellenblatt ("Original") ist ein Formular
mit einer Zelle die nach Betätigung eines Buttons den Usernamen aus dem zweiten Tabellenblatt ("Tabelle2")
ausliest. Jetzt soll die Schleife, die Usernamen (die in einer Spalte nach unten stehen) durchsuchen
und wenn er gefunden wurde, die Suche stoppen.
Der gefundenen Username sollte dann in die vorgesehene Zelle eingetragen werden (funktioniert).
Wenn der Username nicht gefunden wird, sollte die Meldung (siehe Code) angezeigt werden und
der Code ebenfalls gestoppt werden.
Der Code in Tabelle2 dazu:
Sub SelectCase()
Dim i As Integer
For i = 4 To 10 'Usernamen fangen in der 4. Zelle in Spalte D an)
Select Case Cells(i, 4).Value
Case Environ("username")
With Worksheets("Original") 'das ist der Name der Tabelle
If MsgBox("Alle Eingaben durchgeführt?", _
Buttons:=vbYesNo + vbQuestion) = vbYes Then
.Range("P17").Value = Environ("username")
Else
Exit Sub
End If
End With
Case Else
MsgBox "keine Berechtigung für diesen Bereich!"
End Select
Next i
End Sub
Johann Huber
