Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle in Sparte B in ufälliger Zeile markieren

Zelle in Sparte B in ufälliger Zeile markieren
17.04.2015 11:55:39
Ingo
Hallo
Ich habe eine Excel-Tabelle mit aktuelle ca. 700 Zeilen.
Ich möchte per Makro in Spalte B eine zufällige Zeile markieren.
Es soll also z.B. sozusagen einfach nur z.B. B347 oder B18 oder B[...] markiert werden.
So, als wenn ich dort mit der Maus hin klicke.
Es sollen dabei nur die gefüllten Zeilen berücksichtigt werden.
Also die Zeilen, in denen in Spalte B auch ein Wert ist.
Zur Zeit sind das Zeile 2-712.
Das ändert sich aber immer wieder mal.
Das Makro soll also bei seiner Zufalls-Zeilen-Auswahl selbstständig gucken, dass nur die aktuelle gefüllten Zeilen berücksichtigt werden.
Ist sowas mit einem "einfachen" Makro überhaupt machbar?
Und wenn ja, gibt es da evtl. schon was fertigen?
Oder ist das eine extrem komplizierte Angelegenheit?
Gruß
Ingo

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle in Sparte B in ufälliger Zeile markieren
17.04.2015 11:59:58
Ingo
Ich hbe hier schon was gefunden: 
Sub Zufall()
Dim ZZahl
Randomize
zzahl1 = Int((712 * Rnd))  'Zufallszahl wird ermittelt
i = "B" & zzahl1 'Das B wird davorgeschrieben
Range(i).Select 'Zufalls-Zelle wird ausgewählt
End Sub
Aber da muss ich im Code ja noch angeben (hier 712), welcher Bereich berücksichtigt werden soll.
Das Makro soll aber selber gucken, welche Zeilen in Spalte B einen Wert haben und eben nur diese bei der Zufallsauswahl berücksichtigen.
Könnt Ihr mir helfen, dass in dem Code noch zu ergänzen?

AW: Zelle in Sparte B in ufälliger Zeile markieren
17.04.2015 12:12:08
Alexander
Hallo Ingo
probier mal das
Sub ZufaelligeZelle()
Dim lngZahl As Long
Dim lngRow As Long
'letzte beschriebene Zeile ermitteln
lngRow = Cells(Rows.Count, 2).End(xlUp).Row
'Zufallszahl generieren
lngZahl = Int((lngRow * Rnd) + 1)
'Ueberpruepfen ob in der Telle was steht und ob die
'Zufallszahl ungleich 1 ist
If Not Cells(lngZahl, 2).Value = "" _
And lngZahl  "1" Then
'Zelle auswaehlen
Cells(lngZahl, 2).Select
End If
End Sub
Gruß
Alex

Anzeige
AW: Zelle in Sparte B in ufälliger Zeile markieren
17.04.2015 12:30:34
Ingo
Hallo Alex
Oh ja vielen Dank.
Das funktioniert super.
Aber ich fürchte, ich habe da doch noch einen Denkfehler gemacht.
Könnte man noch folgende Bedingung ergänzen?
Zusätzlich zu der bisherigen Bedingung bezüglich Spalte B sollen nur die Zeilen berücksichtigt werden, bei denen in Spalte Q der Wert ungleich "A" ist.
Geht das?
Oder macht das die Sache jetzt womöglich doch extrem kompliziert?
Gruß
Ingo

AW: Zelle in Sparte B in ufälliger Zeile markieren
17.04.2015 12:50:42
Daniel
Hi
probiers mal so (für beide Bedingungen, Zelle nicht leer und in Spalte Q kein "A") 
Dim Zeile as long
Do
Zeile = Worksheetfunction.RandBetween(2, Cells(Rows.Count, 2).end(xlup).Row)
if Cells(Zeile, 2).Value  "" then If Cells(Zeile, "Q")  "" then Exit Do
Loop
Cells(zeile, 2).activate
der Code produziert solange Zufallszahlen, biss eine passende Zelle gefunden wird (achtung, Endlosschleife möglich, wenn es keine passende Zelle gibt).
Weitere Bedingungen kannst du mit zusätzlichen IFs hinzufügen.
Gruß Daniel

Anzeige
AW: Zelle in Sparte B in ufälliger Zeile markieren
17.04.2015 13:37:50
Ingo
Wunderbar ... perfekt ... vielen Dank Euch beiden für die tolle und schnelle Hilfe!!!

AW: Zelle in Sparte B in ufälliger Zeile markieren
19.04.2015 12:56:55
Ingo
Hallo Daniel
Nun habe ich doch nochmal eine Frage zu Deinem Code.
Und zwar eine Verständnis-Frage.
An welcher Stelle im Code wird denn geprüft ob in Spalte Q kein "A" ist?
Ich kapiere das irgendwie nicht.
Oder liegt da evtl. ein Fehler vor?
Gruß
Ingo

AW: Zelle in Sparte B in ufälliger Zeile markieren
19.04.2015 13:22:38
Alexander
Hallo Ingo, hallo Daniel,
Der Vergleich Spalte A und Q sollte wohl so aussehen.
Dim Zeile as long
Do
Zeile = Worksheetfunction.RandBetween(2, Cells(Rows.Count, 2).end(xlup).Row)
if Cells(Zeile, 2).Value "" then If Cells(Zeile, "Q") Cells(Zeile, "A") then Exit Do
Loop
Cells(zeile, 2).activate
@Daniel: ich habe mir erlaubt dir vorzugreifen.
Gruß
Alex

Anzeige
AW: Zelle in Sparte B in ufälliger Zeile markieren
20.04.2015 14:11:13
Daniel
ist OK.
ich bin ja auch nicht immer da oder habe lust zu antworten und dann ist es ja gut, wenn der Fragesteller trotzdem eine Antwort bekommt.
Gruß Daniel

302 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Zelleninhalt in Kopfzeile Seitenansicht zeigen?
Heiner

Hallo Forum,
ich bin Excel-Neueinsteiger habe ein grosses Problem...
In der Kopfzeile (Mitte) einer Seitenansicht soll automatisch der Eintrag aus Tabelle1 / Zelle B3 angezeigt werden.
Ist das möglich? Und wenn ja, wie kann das realisiert werden?
Wer kann mir mit einem Formel- o...
05.11.2008 12:10:35
Thread-ID: 1021845
2 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Werte aus einer Zelle in andere Zelle (neue Datei)
Franz

Tach auch,
folgendes Problem habe ich:
ich öffne eine Datei über eine Vorlage "rep.xlt". Die heisst dann bis zum Speichern "rep1". In einer Zelle wird eine Zahl eingetragen, bspw.: 1234. Dann kann ich die Datei per makro speichern, dann heisst sie: "rep1234.xls. Das funktioniert auch g...
22.01.2009 15:10:00
Thread-ID: 1042648
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
9
5
2
4
3
9
1
2
2
2
4
3
13
5
10
1
5
3
2
4
10
1
4
2