Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Msgbox mit anschliessender Aktion

Msgbox mit anschliessender Aktion
14.04.2006 17:05:37
Thomas
Hallo zusammen!
Ich habe eine Msgbox mit der Abfrage Ja, Nein.
Jetzt möchte ich, wenn "JA" angewählt wird, dass zwischen drei oder vier bestimmten Zellen zufällig bestimmt wird und den inhalt in eine andere zelle kopiert wird...
Wie geht das? Kann mir einer helfen?
Vielen herzlichen Dank im Voraus!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Msgbox mit anschliessender Aktion
14.04.2006 17:15:04
peter
hi thomas,
die abfrage ja nein geht ganz einfach:
z.b.
Public Abfrage As vbMsgBoxResult

Sub Test()
Abfrage = MsgBox "Text", vbQuestion Or vbYesNo, "Test"
If Abfrage = vbYes Then
Else
Exit Sub
EndIf
End Sub

LG Peter
AW: Msgbox mit anschliessender Aktion
14.04.2006 17:21:46
Thomas
Danke!
Wie lautet nun der Code für die Auswahl der Zelleninhalte von zwei oder drei Zellen?
Wenn ich bei der Msgbox auf Ja drücke, sollte zufällig ein Zelleninhalt in eine andere Zelle kopiert werden. Wie funktioniert dies? Danke im Voraus!
AW: Msgbox mit anschliessender Aktion
14.04.2006 17:46:39
Uwe
Hi Thomas,
z.B.:
Dim Z As Integer
Z = Int((3 * Rnd) + 1)
Cells(1, 1).Value = Cells(1 + Z, 1).Value
Damit wird der Zelle A1 durch Zufall ein Wert aus den Zellen A2,A3,A4 zugewiesen.
OK?
Gruß
Uwe
(:o)
Anzeige
AW: Msgbox mit anschliessender Aktion
14.04.2006 18:02:29
Thomas
Danke! Läuft super!
AW: Msgbox mit anschliessender Aktion
14.04.2006 17:49:40
peter
hi,
z.b.
Wert = Int((4 * Rnd) + 1) 'Zufallszahl zwischen 1 und 4
If Wert = 1 Then
'Zelle1'
ElseIf Wert = 2 Then
'Zelle2'
ElseIf Wert = 3 Then
'Zelle3'
Else
'Zelle4'
EndIf
Kurze Rückmeldung ob das ganze läuft wäre nett!
LG Peter
AW: Msgbox mit anschliessender Aktion
14.04.2006 18:02:03
Thomas
Super! DAnke

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige