UserForm mit Dropdownfeldern?

Moin Leute,
wie gesagt VBA kenn ich mich noch nicht so aus!
Ich möchte auf Buttondruck das sich ne Userform öffnet in der 3 Textfelder sind.
Im ersten soll man per Dropdown einen Namen auswählen können!
Daraufhin erscheint im zweiten Textfeld ein Rechnername.. (wenn(Textfeld1="Name1";"Rechnername1";wenn(Textfeld1="Name2";"Rechnername2";""))
Mehr als zwei Namen soll man nicht zur auswahl haben.
Im Dritten Textfeld soll man einen Text eingeben können!
also,
1. Textfeld zum auswählen
2. Textfeld wo etwas automatisch eingetragen wird, was man auch nicht verändern kann
3. Textfeld zum eingeben
Dann noch zwei Button (Senden; Abbrechen)
wenn auf senden geklickt wird soll das sCript ausgeführt werden:
Shell("cmd /K net send " & Textfeld2 & " " & Textfeld3 & "", 0)
Hoffe auf Hilfe!
vielen dank & MFG
Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Nachrichten() Dim ergebnis As String Dim ergebnis1 As String If A2 <> 0 Then ergebnis = Shell("cmd /K net send " & Range("A2") & " " & "Nachricht von " & Application.UserName & ": " & Range("A3") & "", 0) If B2 <> 0 Then ergebnis1 = Shell("cmd /K net send " & Range("B2") & " " & "Nachricht von " & Application.UserName & ": " & Range("A3") & "", 0) MsgBox "Nachricht gesendet" End If End If End Sub

Sub Nachrichten() Dim ergebnis As String Dim ergebnis1 As String If 12 <> 0 Then ergebnis = Shell("cmd /K net send " & Range("A2") & " " & "Nachricht von " & Application.UserName & ": " & Range("A3") & "", 0) If 22 <> 0 Then ergebnis1 = Shell("cmd /K net send " & Range("B2") & " " & "Nachricht von " & Application.UserName & ": " & Range("A3") & "", 0) MsgBox "Nachrichten gesendet" Else MsgBox "Nachricht gesendet" End If End If End Sub

habs mal nen bissl geupdated.. jetzt funzt es richtig!!


Sub Nachrichten()
Dim ergebnis As String
Range("U3") = Application.UserName
If Tabelle1.Cells(4, 3) <> "" Then
ergebnis = Shell("cmd /K net send " & Range("C4") & " " & "Nachricht von " & Range("V3") & ": " & Range("B7") & "", 0)
Else
MsgBox "Keine Daten zum Senden vorhanden!!!", vbCritical, "Fehler"
Exit Sub
End If
If Tabelle1.Cells(4, 7) <> "" Then
ergebnis = Shell("cmd /K net send " & Range("G4") & " " & "Nachricht von " & Range("V3") & ": " & Range("B7") & "", 0)
Else
MsgBox "Nachricht an " & vbCr & vbCr & Range("C3") & vbCr & vbCr & "erfolgreich gesendet!", vbInformation, "Statusreport"
Exit Sub
End If
If Tabelle1.Cells(4, 11) <> "" Then
ergebnis = Shell("cmd /K net send " & Range("K4") & " " & "Nachricht von " & Range("V3") & ": " & Range("B7") & "", 0)
Else
MsgBox "Nachricht an " & vbCr & vbCr & Range("C3") & vbCr & Range("G3") & vbCr & vbCr & "erfolgreich gesendet!", vbInformation, "Statusreport"
Exit Sub
End If
If Tabelle1.Cells(4, 15) <> "" Then
ergebnis = Shell("cmd /K net send " & Range("O4") & " " & "Nachricht von " & Range("V3") & ": " & Range("B7") & "", 0)
Else
MsgBox "Nachricht an " & vbCr & vbCr & Range("C3") & vbCr & Range("G3") & vbCr & Range("K3") & vbCr & vbCr & "erfolgreich gesendet!", vbInformation, "Statusreport"
Exit Sub
End If
MsgBox "Nachricht an " & vbCr & vbCr & Range("C3") & vbCr & Range("G3") & vbCr & Range("K3") & vbCr & Range("O3") & vbCr & vbCr & "erfolgreich gesendet!", vbInformation, "Statusreport"
End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm mit Dropdownfeldern?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread