|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 VBA in Excel - Zeilen vertauschen |
25.11.2007 11:43:52 |
Chrissi |
|
|
|
25.11.2007 14:50:41 |
Jürgen |
|
|
|
25.11.2007 14:56:04 |
Holger |
|
|
Von:
Chrissi |
Datum:
25.11.2007 11:43:52 |
Views:
2002 |
Rating:
|
Antwort:
|
Thema:
VBA in Excel - Zeilen vertauschen |
Hallo !
Ich habe eine Tabelle mit Quizfragen.
Da ich ein Quiz programmiert habe möchte ich das nciht immer die gleichen fragen
gestellt werden und so sollen die vorhandenen fragen einfach immer bunt durcheinader
gewürfelt werden bevor der test beginnt.
Die struktur der tabelle sieht so aus:
Frage - antwort 1 - antwort 2 - antwort 3 - antwort 4
ich habe ca 34 fragen die so untereinaander weggeschrieben sind.
Ich möchte nun ein modul haben das.
sich eine bestimmte zeile (3) nimmt,
dann eine andere zeile (24) nimmt sie an die stelle packt wo zeile (3) vorher war
und zeile (3) an die stelle von zeile (24) packt
ich habe bereits eine programmierung vorliegen die aber noch nciht ganz funktioniert,
da ich nicht weil ob ich ganze zeilen in eine Variable packen kann, da da ja schon einige
informationen drin stecken.
hier die bisherige programmierung:
Sub wirbel_Zeilen()
'Zeilen vertauschen
Dim Zeile As Integer
Dim i As Integer 'Laufvariablen
Dim y As Integer
Dim varTausch As Variant ' Bildertausch
Dim intAnzahl_Zeilen As Integer ' Wie viel Bilder?
Dim intZZahl As Integer ' Zufallszeile
'Initialisierung
Randomize ' Zufallszahlengenerator initialisieren.
Zeile = 3
Sheet = 2
'Zähle Zeilen
Do Until Worksheets(Sheet).Cells(Zeile, 1) = ""
intAnzahl_Zeilen = intAnzahl_Zeilen + 1
Zeile = Zeile + 1
Loop
'Testbox
'MsgBox intAnzahl_Zeilen & " Fragen"
For i = 3 To 20 ' Tausche 20 mal die Liste
Zeile = 3
' Tausche innerhalb der Liste
For y = i To (intAnzahl_Zeilen + 3)
'Setze Start
intZZahl = Int((intAnzahl_Zeilen * Rnd) + 1)
'Zeile 3
varTausch = Worksheets(Sheet).Rows(Zeile)
'Schnapp dir das Bild darunter
Worksheets(Sheet).Rows(Zeile) = Worksheets(Sheet).Rows(intZZahl)
'Schreibe darunter
Worksheets(Sheet).Rows(intZZahl) = varTausch
'
Next y
Next i
End Sub
das komische ist das wenn ich das anwende alle meine zeilen leer sind.
Ich hoffe jemand kann schnell helfen. vielen dank schon mal :) |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA in Excel - Zeilen vertauschen |
25.11.2007 11:43:52 |
Chrissi |
|
|
|
25.11.2007 14:50:41 |
Jürgen |
|
|
|
25.11.2007 14:56:04 |
Holger |
|
|