VBA
Excel VBA
Word VBA
Access VBA
VBScript
VB
C#
Objective-C
C++
SQL
JAVA
VBA (English)
Jobs
Übersicht
Thema
Datum
Von Nutzer
Rating
Antwort
Do...Loop in while.....wend umschreiben aber wie
14.06.2007 08:45:55
kiro
Aw:Do...Loop in while.....wend umschreiben aber w
14.06.2007 22:57:23
Sozu
Ansicht des Beitrags:
Von:
kiro
Datum:
14.06.2007 08:45:55
Views:
1873
Rating:
Antwort:
Thema:
Do...Loop in while.....wend umschreiben aber wie
Private Sub CommandButton1_Click()
Hallo Leute
Wie kann ich meine Do loop Schleife in eine while wend umschreiben?
Vielen Dank
Dim Zeile As Long
Dim c
Dim GefZelle
Zeile = 1
c = True
GefZelle = True
With Worksheets("SucheL").Columns(19)
Set c = .Find("JA", LookIn:=xlValues)
If Not c Is Nothing And c.Address <> GefZelle Then
GefZelle = c.Address
Do
Rows(c.Row).Copy
Worksheets("Tabelle").Rows(Zeile).PasteSpecial Paste:=xlValues
Zeile = Zeile + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> GefZelle
End If
End With
End Sub
Ihre Antwort
Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
B
ei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema:
Name:
Email:
Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
B
ei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema
Datum
Von Nutzer
Rating
Antwort
Do...Loop in while.....wend umschreiben aber wie
14.06.2007 08:45:55
kiro
Aw:Do...Loop in while.....wend umschreiben aber w
14.06.2007 22:57:23
Sozu