Herbers Excel-Forum - das Archiv

Schleifen

Bild

Betrifft: Schleifen
von: Marcel
Geschrieben am: 01.12.2003 17:46:20
Mein Problem:

Ich möchte daß die Excel-Datei nur über ein Login gestartet werden kann, User und Passwort stehen bereits in einem Tabellenblatt.

Nun möchte ich eine Schleife starten, in der User und Passwort geprüft werden, solange bis die Zeile leer ("") ist.

Sobald User und Passwort korrekt sind, soll er die Excel-Datei starten.

Ich habe begonnen mit

Do Until Worksheet("XXX").Range("XXX")=""

usw. ... aber schon da sehe ich "gelb" :o(((

Kann mir jemand helfen?

Bild

Betrifft: AW: Schleifen
von: PeterW
Geschrieben am: 01.12.2003 18:05:49
Hallo Marcel,

es muss heißen:
Do Until WorksheetS("XXX").Range("XXX")=""

Sollte es sich dabei nur um einen Übertragungsfehler handeln gib bitte etwas mehr Informationen (Code).

Gruß
Peter
Bild

Betrifft: AW: Schleifen
von: Marcel
Geschrieben am: 01.12.2003 18:44:16
Das "s" bei Worksheets habe ich eingefügt, aber er sagt mir jetzt:

Fehler beim Kompilieren:
Das Element ist bereits in einem Objektmodul vorhanden von der dieses Objekmodul abgeleitet wird.

Ich kopiere mal meinen Code mit Infos hier rein. Mal sehen ob jemand schlau wird aus meinen Super-Anfänger-VBA-Codes
Bild

Betrifft: AW: Schleifen
von: PeterW
Geschrieben am: 01.12.2003 19:35:02
Hallo Marcel,

und wo ist jetzt der Code (oder bei der Fehlermeldung beser die Beispielmappe)?

Gruß
Peter
Bild

Betrifft: AW: Schleifen
von: Marcel
Geschrieben am: 01.12.2003 21:14:22
Da ich nicht so der Experte bin kann ich mein Problem schlecht erklären.

Ich möchte einfach nur eingeben, daß er eine Schleife öffnet und so lange sucht, bis eine "Freie Zeile" kommt und somit die Schleife beendet wird. Während der Schleife soll das Programm Usernamen und Passwort vergleichen aus einem bereits erstellten Tabellenblatt.... wenn ich das habe, bin ich sehr glücklich ..
Bild

Betrifft: AW: Schleifen
von: PeterW
Geschrieben am: 01.12.2003 21:27:10
Hallo Marcel,

vielleicht solltest du Cells(Zeile, Spalte) benutzen. Beispiel für Spalte A:


Sub BisLeer()
Dim lgRow As Long
lgRow = 1
Do Until Cells(lgRow, 1) = ""
'weitere Befehle in der Schleife
lgRow = lgRow + 1
Loop
MsgBox lgRow
End Sub


Gruß
Peter
Bild