Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zufällige Auswahl/Kopieren von einer Spalte

Forumthread: Zufällige Auswahl/Kopieren von einer Spalte

Zufällige Auswahl/Kopieren von einer Spalte
23.01.2017 12:29:38
einer
Hallo alle zusammen,
ich habe ein kleines Anliegen. Ich würde gerne mittels vba eine Spalte zufällig auswählen und diese dann auf ein anderes Tabellenblatt kopieren.
Hier die zugehörige Excel-Arbeitsmappe:
https://www.herber.de/bbs/user/110814.xlsx
Auf Tabellenblatt "Input" sind 10 Spalten mit jeweils 96 Zeilen gegeben, aus welchen dann eine zufällig gezogen werden soll und dann in den markierten Bereich auf Tabellenblatt "Output" kopiert werden soll.
Ich würde mich freuen, wenn mir jemand weiter helfen könnte.
Liebe Grüße,
Antonia
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zufällige Auswahl/Kopieren von einer Spalte
23.01.2017 12:51:14
einer
Hi Antonia
Sub t()
Dim ZufallsSpalte As Integer
Randomize
ZufallsSpalte = Int((10 * Rnd) + 1)
Worksheets("Input").Columns(ZufallsSpalte).Copy Worksheets("Output").Range("B1")
End Sub

cu
Chris
RandBetween(1, 10)
23.01.2017 12:53:40
Matthias
Hallo
Option Explicit
Sub zufall()
Dim zahl&
zahl = Application.WorksheetFunction.RandBetween(1, 10)
MsgBox "Kopiere Spalte: " & zahl
Tabelle1.Columns(zahl).Copy Destination:=Tabelle2.Columns(2)
End Sub
Gruß Matthias
Anzeige
AW: RandBetween(1, 10)
23.01.2017 13:20:42
Antonia
Super, vielen Dank, Matthias!
AW: Zufällige Auswahl/Kopieren von einer Spalte
24.01.2017 16:33:57
einer
Hallo beisammen jetzt habe ich doch noch ein Problem, habe das Problem von oben noch ein klein wenig abgewandelt und das sieht jetzt so aus: 
Sub Kopiere_random_Spalte()
Dim letztespalte As Long
Dim zahl As Long
Worksheets("Output").Range("C3:C98").ClearContents
Worksheets("Outout").Range("A4").ClearContents
letztespalte = Worksheets("Input").UsedRange.Columns.Count
zahl = Application.WorksheetFunction.RandBetween(1, letztespalte)
Worksheets("Input").Cells(2, zahl).Copy Destination:=Worksheets("Output").Range("A4")
Worksheets("Input").Range(Cells(3, zahl), Cells(98, zahl)).Copy Destination:=Worksheets(" _
Output").Range("C3:C98")

End Sub

Bei der fett gedruckten Zeile kommt immer die Fehlermeldung "Laufzeitfehler 1004: Anwendungs- und Objektdefinierter Fehler"?
Warum ist das so? Vielen Dank für eure schnelle Hilfe!
Viele Grüße,
Antonia
Anzeige
AW: Zufällige Auswahl/Kopieren von einer Spalte
24.01.2017 17:05:56
einer
Hallo
Probiers mal ao:
With Worksheets("Input")
.Range(.Cells(3, zahl), .Cells(98, zahl)).Copy Destination:=Worksheets("Output").Range("C3")
End With
Gruß Matthias
AW: Zufällige Auswahl/Kopieren von einer Spalte
25.01.2017 11:39:58
einer
Super, so funktioniert es!
Danke!
AW: Zufällige Auswahl/Kopieren von einer Spalte
24.01.2017 17:06:05
einer
Hi Antonia
Fehlende Referenzierung (bei manchen Cells fehlt die Angabe des Blattnamens)
With Worksheets("Input")
letztespalte = .UsedRange.Columns.Count
zahl = Application.WorksheetFunction.RandBetween(1, letztespalte)
.Cells(2, zahl).Copy Destination:=Worksheets("Output").Range("A4")
.Range(.Cells(3, zahl), .Cells(98, zahl)).Copy _
Destination:=Worksheets("Output").Range("C3:C98")
End With

cu
Chris
Anzeige

Forumthreads zu verwandten Themen

Filtern kopieren Auswahlkriterium aus Liste
Silvi

Guten Morgen!
Hab da wiedermal ein Problem und will mal versuchen es kurz und knapp zu beschreiben. In einer Datei filtere ich zunächst per VBA die Kostenstellen heraus und stelle sie in ein anderes Tabellenblatt (Kostenstellen), in diesem Blatt werden erstmal alle doppelten Kostenstellen g...
04.02.2009 08:16:00
Thread-ID: 1046863
20 Beiträge
Matrix Auswahl von 4 Werten aus Liste????
4

Hallo Zusammen,
leider ist mein Problem immer noch nicht behoben.
Ich habe mal eine Beispieltabelle hochgeladen.
https://www.herber.de/bbs/user/61508.xls
4 Eingabefelder in echt als dropdown. Es soll nur wenn alle Werte passen das entsprechende aus der Tabele ausgegeben werden.<...
29.04.2009 20:12:52
Thread-ID: 1071991
9 Beiträge
Multiselect bei Auswahl aus einer Liste Gültigkeit
Thomas

Hallo!
Folgendes Problem.
Ich habe eine Tabelle in der User Werte in bestimmte Zellen auf Basis einer Vorschlagsliste eingeben sollen.
Diese Werte kommen aus einem vordefinierten Listbereich (z.B. 10 verschiedene Attribute).
Ich habe die Tabelle über die Funktion "Gültigkeit" er...
18.12.2009 18:28:17
Thread-ID: 1124952
4 Beiträge
Liste aus Liste generieren Auswahlmöglichkeit
chris

Hallo zusammen
ich habe folgendes Problem: ich sollte aus einer bestehenden Liste eine neue Liste generieren.
Dabei habe ich Kontrollköstchen, welche ich anklicken kann. Somit kann ich die neu zu überführenden Werte auswählen. Aufgrund dessen kann ich dann auch eine Wahr/ Falsch Aussa...
17.11.2010 17:52:59
Thread-ID: 1187336
2 Beiträge
Auswahl aus Liste mit Kennwort
lutz

Hallo Excel-Profis,
ich habe mal eine Frage bzgl. Kennwortschutz:
Verschiedene Mitarbeiter sollen Eingaben in ein Tabellenblatt machen. Am Anfang wird per Makro aus einer Liste der Mitarbeiter abgefragt.
Kann ich irgendwie sicherstellen, dass jeder Mitarbeiter sich selber nur über K...
26.11.2010 10:17:28
Thread-ID: 1188878
7 Beiträge
Anzeige
Name aus einer Liste auswählen
Willi

Hallo Leute,
ich habe ein Problem wie folgt:
aus einer Spalte in der stehen die Lieferanten untereinander. Es gibt
sehr viele doppelte Eintragungen. Mein wunsch ist folgender:
in einem anderen Blatt möchte ich die Umsätze der Lieferanten zusammenfassen.
Dazu will ich in eine...
09.02.2011 12:56:50
Thread-ID: 1199853
5 Beiträge
Zellen zufällig sortieren und kopieren
Tom

Hallo an Alle, die das lesen :-)
Ich habe folgenden vba-Code gefunden:
Sub til() Sheets("Tabelle1").Select Range("a1").Clear Dim ar_rng(), i ar_rng = Range("A1:A33") For i = 1 To 33 ar_rng(i, 1) = Cells(Int(Rnd() * 33 + 1), "E").Value Next [A1:A33] = ar_rng() End Sub Es werden also die...
16.03.2013 16:03:02
Thread-ID: 1304348
3 Beiträge
Auswahl von Zeilen in neues Blatt kopieren
Wolfgang

Ein Gruss an die Spezialisten,ich würde gerne aus einer Excel-Tabelle Zeilen nach bestimmten Kriterien (Text) auswählen und alle Zeilen, die mit diesem Kriterium übereinstimmen, in eine andere (bestehende) Excel-Tabelle übertragen. Da diese Funktion immer dann laufen soll, wenn man die (bestehe...
09.07.2002 14:04:18
Thread-ID: 135075
4 Beiträge
Auswahl aus zwei Listen mit je zwei Kriterien
Arthur

Hi Forum.
Die Eingebung will mir nicht kommen. Für euch sehe ich da noch Hoffnung :o). Und zwar für folgende Aufgabe: Aus zwei Tabellen möchte ich diejenigen Elemente filtern, die bestimmten Kriterien folgen. Beispiel:
Gesucht ist der Index aus Tabelle 1, bei dem ein 'ja' im Attribut st...
12.06.2014 13:52:04
Thread-ID: 1365591
6 Beiträge
zufällige Auswahl aus Stichprobe
nag75

Hallo,
folgendes Problem möchte ich lösen:
Aus einer monatlichen, sich ändernden Liste mit Kundennummern, muss ich 1% prüfen. Im Tabelleblatt 1 Spalte A habe ich die Kundennummern. Im Tabellenblatt 2 Zelle B2 lasse ich die Anzahl des Stichprobenumfangs ausrechnen.
Nun sollen ab Zell...
24.09.2014 09:31:57
Thread-ID: 1383113
5 Beiträge
Auswahl aus Liste
Peter

Guten Tag
Werde gerade nicht fündig ...
Inhalt der Spalten V resp. W
Zeile 1: "J" resp. 1
Zeile 2: "" (nichts) resp. 5
Zeile 3: "V" resp 0
Mit welcher Formel kann erhalte ich bei Übergabe von "J", resp. "" resp. "V" die entsprechende Zahl aus Spalte W?
Ich habe mit S...
23.01.2015 11:15:55
Thread-ID: 1404622
6 Beiträge
VBA AutoFilter Auswahl aus Liste füttern
WalterK

Schönen Sonntag,
ich möchte die Auswahl für den Autofilter aus einer Liste füttern:
die Liste befindet sich im Bereich K3:K?
Und das ist mein Problem, die Liste ist unterschiedlich lang: manchmal stehen Einträge von K3:K10, dann wieder von K3:K4 usw.
Wie muss man das im Code anf...
27.09.2015 16:52:32
Thread-ID: 1449632
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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