Zeilen durch "Zufall" löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo nochmal,
oder wenn die Zeilen nicht von unten nach oben sondern wirklich per zufall gelöscht werden sollen dann so :
Private Sub CommandButton1_Click() Dim lngLetzte As Long, lngAnzahl As Long, lngEingabe As Long, lngZähler As Long Dim Bereich As Range Application.ScreenUpdating = False lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row Set Bereich = Range(Cells(1, 1), Cells(lngLetzte, 1)) lngEingabe = InputBox("Wieviele Einträge sollen bleiben?", "Anzahl Eingeben") For lngZähler = lngLetzte To 1 Step -1 If lngZähler = lngEingabe Then Exit For lngAnzahl = Int(Rnd() * lngLetzte + 2) Cells(lngAnzahl, 1).EntireRow.Delete lngLetzte = lngLetzte - 1 Next Application.ScreenUpdating = True End Sub Rückmeldung obs Hilft wäre nett.
Gruß aus der Domstadt Köln.

Hallo
Das hat nichts mit Zufall zu tun, sondern ist immer gleich
Mach mal Folgendes:
Öffne Deine Datei, starte den Code und lass 2 Einträge stehen:

	A	B	C
1	Name :	Kosten :	Kommentar :
2	Kaufmann	670	vwx
3	Kaufmann	652	stu

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Jetzt Datei schließen ( ohne speichern ! )
Nun das Ganze nochmal:
Datei öffnen, 2 Einträge stehen lassen. Was passiert?
Es sind exakt die gleichen Zeilen die stehen bleiben !
Würdest Du 6 Zeilen stehen lassen, wäre das Ergebnis immer so:

	A	B	C
1	Name :	Kosten :	Kommentar :
2	Kaufmann	670	vwx
3	Kaufmann	37	abc
4	Kaufmann	343	jkl
5	Kaufmann	881	vwx
6	Kaufmann	652	stu
7	Kaufmann	647	jkl

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Das liegt daran, das Du ohne Randomize arbeitest.

Desweiteren ist mir Folgendes aufgefallen:
Wenn Du nicht zwingend überprüfst das lngEingabe maximal kleiner/gleich lngLetzte sein darf,
werden bei einer Eingabe von z.B. [ 501 ] alle Daten gelöscht
Das muss also auch berücksichtigt werden. Auch ein Klick auf Abbrechen, beim Zeigen der Inputbox bzw. bei Eingabe von Text bricht VBA mit einer Fehlermeldung ab.
Abhilfe schafft dies: (wobei lngEingabe nicht als Long deklariert ist, sondern als String)

If StrPtr(lngEingabe) = 0 Then Exit Sub     'Abbrechen gedrückt
If Not IsNumeric(lngEingabe) Then Exit Sub  'keine Zahl eingegeben
If IsDate(lngEingabe) Then Exit Sub         'Datum eingegeben
If lngEingabe > lngLetzte Then Exit Sub     'mehr Zeilen, als vorhanden
If lngLetzte

Zitat:
Beim Klick auf einen OptionButton solll man gefragt werden, wieviel Zeilen, mit dem Schlagwort "y" in Spalte "A" übrig bleiben sollen.
... dann müsste ja also auch noch der Name aus Spalte(A) mit in den Code eingebunden werden
Denn da steht sicher nicht überall der "Kaufmann" drin ... ;o)
Userbild

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen durch "Zufall" löschen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread