Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

303 Forumthreads zu ähnlichen 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
Anzeige
Namen aus Liste auswählen
Volker

Hallo liebe Excelgemeinde.
Wie nennt man es eigendlich, wenn man z. B. im Bereich a5 bis a25 Namen stehen hat und wenn man im Bereich d30 bis d 55 dann bein Eintagen diese o.g. Namen sozusagen "vorgeschlagen" werden. Wenn man z.b. eine " E" eingibt, sollen alle Namen mit "E" als Anfangsbuch...
02.12.2009 18:55:16
Thread-ID: 1121470
3 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
Anzeige
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
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
Zufällige Auswahl aus vorgegeben Werten
Tess

Hallo Ihr Lieben!
Da es hier immer so tolle Lösungen gibt, komme ich heute mal mit einem (aus meiner Sicht) kniffligen Problem auf euch zu.
Ich möchte aus einer Spalte die insgesamt 72 Werte enthält drei verschiedene Mittelwerte berechnen, indem jeweils 24 Werte aus diesen Werten zufäll...
18.07.2013 16:41:18
Thread-ID: 1323134
15 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
19
8
2
3
3
1
6
4
2
14
3
5
4
5
6
1
8
2
4
4
1
25
7
6
5