unheimlicher Fehler in Excel 2007?

Public Sub LoeschEinige() Zaehler = 1 Do While Userform1.Controls("Textfeld" & CStr(Zaehler)).Text "" If UCase(Userform1.Controls("Loeschfeld" & CStr(Zaehler)).Text) = "X" Then Userform1.Controls("Textfeld" & CStr(Zaehler)).Text = "" Userform1.Controls("LoeschFeld" & CStr(Zaehler)).Text = "" End If If Zaehler

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub LoeschEinige() Dim Zahler As Integer For Zaehler = 1 To 60 If UCase(Userform1.Controls("Loeschfeld" & CStr(Zaehler)).Value) = "X" Then Userform1.Controls("Textfeld" & CStr(Zaehler)).Value = "" Userform1.Controls("LoeschFeld" & CStr(Zaehler)).Value = "" End If Next Zaehler End Sub

Private Sub UserForm_Click() Dim A As Byte For A = 1 To 60 If UCase(UserForm1("Loeschfeld" & CStr(A))) = "X" Then UserForm1("Textfeld" & CStr(A)) = "" UserForm1("LoeschFeld" & CStr(A)) = "" End If Next A End Sub

Hallo Luschi, Hallo Tino,
Vielen Dank für eure Vorschläge, aber eine For...Next-Schleife als solche scheint mir hier weniger
geeignet, weil ich jedes Mal mit einem dem hier zur Debatte stehenden Makro vorangehenden Makro (der funktioniert und den ich deshalb nicht näher erläutert habe) unterschiedlich viele Datensaetze in die Daten-Textfelder einlesen, z.B. einmal nur 45, dann wieder 37, usw. Die Do While-Schleife soll ja gerade abfragen, ob das jeweils naechste Daten-Textfeld leer oder gefuellt ist.
Eine For-Next-Schleife könnte ich hier nur einsetzen, wenn die Gesamtzahl der jeweils gefüllten
Datensätze bekannt wäre. Sie ist aber jedesmal verschieden, kann sogar null sein (wenn bei einer
in den vorangehenden Makro eingebauten Suchabfrage keine Datensätze, die dem Suchkriterium entsprechen, gefunden werden. Werner R.

Hallo Rudi,
wieder im Lande? Danke für deine Anregung!
Nach den Lehrbüchern verwendet man, soweit mir bekannt For...Next-Schleifen, wenn die Anzahl der Schleifendurchgänge bekannt ist. In diesem Fall ist die Anzahl der Schleifendurchgänge aber nicht bekannt, denn mein
hier erörterter Makro weiss nicht im voraus, wieviele Daten-Textfelder der Userform mit Daten belegt
sind. Er muss also jedesmal prüfen, ob das nächste Textfeld auch Daten enthält oder leer ist.
Natürlich kann ich in eine For...Next-Schleife eine If-Abfrage einbauen, z.B. so:


Public Sub Loesch()
For Zaehler = 1 To 60
If Userform1.Controls("Textfeld"  & CStr(Zaehler)).Text  "" Then
If UCase(Userform1.Controls("Loeschfeld"  & CStr(Zaehler)).Text) = "X" Then
Userform1.Controls("Loeschfeld"  & CStr(Zaehler)).Text = ""
Userform1.Controls("Textfeld" & CStr(Zaehler)).Text = ""
End If
Else
Exit For
End If
Next Zaehler
End Sub

Dann habe ich zwar nicht, worauf Luschi hingewiesen hat, in der Bedingung einer Do While-Schleife
die Bedingung gewechselt, sondern stattdessen in der If-Abfrage die Bedingung gewechselt. Um einen Wechsel der Bedingung komme ich ja kaum umhin, weil alle Daten-Textfelder ausser ihrem ganz hinten stehenden Index ja gleich benannt sind und ich bei jedem Durchgang mit Hilfe der Variable Zaehler das jeweils naechste Daten-Textfeld ansprechen möchte.
Ist mein oben vorgeschlagener Alternativ-Code besser als der ursprüngliche? Werner R.

Dim A As Byte For A = 1 To 60 If UCase(UserForm1("Loeschfeld" & CStr(A))) = "X" Then If UserForm1("Textfeld" & CStr(A)) = "" Then Exit For UserForm1("Textfeld" & CStr(A)) = "" UserForm1("LoeschFeld" & CStr(A)) = "" End If Next A

Beliebteste Forumthreads (12 Monate)

unheimlicher Fehler in Excel 2007?

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

unheimlicher Fehler in Excel 2007?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread