Wie kann ich ein Color-Menü mit Choice machen?

Hier der Problemteil:

echo              =%Efa1%= Schwarz     =%Efa1%=
echo              =%Efa2%= Grau        =%Efa2%=
echo              =%Efa3%= Hellgrau    =%Efa3%=
echo              =%Efa4%= Blau        =%Efa4%=
echo              =%Efa5%= Hellblau    =%Efa5%=
echo              =%Efa6%= Gruen       =%Efa6%=
echo              =%Efa7%= Hellgruen   =%Efa7%=
echo              =%Efa8%= Tuerkis     =%Efa8%=
echo              =%Efa9%= Helltuerkis =%Efa9%=
echo              =%Efa10%= Rot         =%Efa10%=
echo              =%Efa11%= Hellrot     =%Efa11%=
echo              =%Efa12%= Lila        =%Efa12%=
echo              =%Efa13%= Helllila    =%Efa13%=
echo              =%Efa14%= Gelb        =%Efa14%=
echo              =%Efa15%= Hellgelb    =%Efa15%=
echo              =%Efa16%= Weiss       =%Efa16%=
choice /n /c:WSD
if errorlevel 255 goto e-farben
if errorlevel 3 goto ehauswahl
if errorlevel 2 goto ehrunter
if errorlevel 1 goto ehhoch
if errorlevel 0 goto e-farben
:ehhoch
if "%Efa1%"=="X" set Efa1= &&set Efa16=X&&color f%Vfarbe%&&goto e-farben
if "%Efa2%"=="X" set Efa2= &&set Efa1=X&&color 0%Vfarbe%&&goto e-farben
if "%Efa3%"=="X" set Efa3= &&set Efa2=X&&color 8%Vfarbe%&&goto e-farben
if "%Efa4%"=="X" set Efa4= &&set Efa3=X&&color 7%Vfarbe%&&goto e-farben
if "%Efa5%"=="X" set Efa5= &&set Efa4=X&&color 1%Vfarbe%&&goto e-farben
if "%Efa6%"=="X" set Efa6= &&set Efa5=X&&color 9%Vfarbe%&&goto e-farben
if "%Efa7%"=="X" set Efa7= &&set Efa6=X&&color 2%Vfarbe%&&goto e-farben
if "%Efa8%"=="X" set Efa8= &&set Efa7=X&&color a%Vfarbe%&&goto e-farben
if "%Efa9%"=="X" set Efa9= &&set Efa8=X&&color 3%Vfarbe%&&goto e-farben
if "%Efa10%"=="X" set Efa10= &&set Efa9=X&&color b%Vfarbe%&&goto e-farben
if "%Efa11%"=="X" set Efa11= &&set Efa10=X&&color 4%Vfarbe%&&goto e-farben
if "%Efa12%"=="X" set Efa12= &&set Efa11=X&&color c%Vfarbe%&&goto e-farben
if "%Efa13%"=="X" set Efa13= &&set Efa12=X&&color 5%Vfarbe%&&goto e-farben
if "%Efa14%"=="X" set Efa14= &&set Efa13=X&&color d%Vfarbe%&&goto e-farben
if "%Efa15%"=="X" set Efa15= &&set Efa14=X&&color 6%Vfarbe%&&goto e-farben
if "%Efa16%"=="X" set Efa16= &&set Efa15=X&&color e%Vfarbe%&&goto e-farben
Windows, bat, Batch, Batch-Programmierung, cmd
1 Antwort
Hey, wie bekomme ich via Excel VBA eine Mail bei Lotus Notes geschrieben, sodass ich sie vorher noch bearbeiten kann?

Sobald ich die Mail ohne Bearbeitung verschicke, ist die Mail inklusive des Inhaltes. Sobald ich sie bearbeiten will vorher bzw. noch einmal manuell auf "senden" drücken will (Vorsichtsmaßnahme), ist der komplette Inhalt, bis auf die Betreffzeile, verschwunden.

Beiliegend ist mein Codebeispiel

Sub SendNotesMail2()

Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Maildb As Object
Dim MailDoc As Object
Dim session As Object
Dim stSignature As String



With Application
.ScreenUpdating = False
.DisplayAlerts = False


AWS = ActiveWorkbook.FullName
Set Worksheet = Application.ActiveWorkbook.Worksheets.Item(1)
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
Set MailDoc = Maildb.createdocument
MailDoc.Form = "Memo"
Set Workspace = CreateObject("Notes.NOTESUIWORKSPACE")
stSignature = Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
Recipient = "f"
MailDoc.display = ""
MailDoc.copyto = "" 
MailDoc.subject = "price update"
MailDoc.SAVEMESSAGEONSEND = saveit
Set ritem = MailDoc.CreateRichTextItem("Body")
For i = 2 To 37
With ritem
        .AppendText ("")
        .AppendText (Cells(i, 2).Value & vbTab & Cells(i, 3).Value & vbTab & Cells(i, 4).Value & vbTab & Cells(i, 5).Value & vbTab)
        .addnewline (1)
End With
Next
For i = 2 To 2
With ritem
        .AppendText ("" & vbCrLf & vbCrLf & stSignature)
End With
Next


Call Workspace.editdocument(True, MailDoc).GOTOFIELD("subject")


MailDoc.PostedDate = Now()

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachMe = Nothing
Set session = Nothing
.ScreenUpdating = True
.DisplayAlerts = True
End With
Range("a1").Select
End Sub             
Computer, Excel, Mail, Lotus Notes
1 Antwort
Wie kann ich verhindern, dass bei meinem Batch spiel steht echo ist ausgeschaltet off?

Script:

@echo off title Tic Tac Toe color 0F

:gebenick1 color0f echo. cls echo. echo. echo ###### ## ### ###### ## ### ###### #### ###### echo ## ## ## ## #### ## ## ## ## #### echo ## ## ## ## ## ## ## ## ## ## ## echo ## ## ### ## ## ## ### ## #### ###### echo. echo
echo. echo. echo Name des 1.Spieler: echo. set /p nick1="" goto bubu1 :lol1 color0f cls echo. echo. echo. echo. echo #################### echo Willkommen %nick1% echo #################### ping /n 2 localhost >NUL goto gebenick2

:gebenick2 color0f cls echo. echo. echo ###### ## ### ###### ## ### ###### #### ###### echo ## ## ## ## #### ## ## ## ## #### echo ## ## ## ## ## ## ## ## ## ## ## echo ## ## ### ## ## ## ### ## #### ###### echo. echo
echo. echo. echo Name des 2.Spieler: echo. set /p nick2="" goto bubu2 :lol2 color0f cls echo. echo. echo. echo. echo. echo. echo #################### echo Willkommen %nick2% echo #################### ping /n 2 localhost >NUL goto main

:main color0f

set z1=1 set z2=2 set z3=3 set z4=4 set z5=5 set z6=6 set z7=7 set z8=8 set z9=9

:Spieler1 cls

color 0f

echo. echo
echo
echo. echo %nick1% hat die 0 echo. echo. echo %z1%___%z2%___%z3% echo.
echo %z4%___%z5%___%z6% echo.
echo %z7%___%z8%___%z9% echo. echo. echo. set /p Zahl=%nick1% setzte eine Zahl: if %Zahl%==1 goto 1 if %Zahl%==2 goto 2 if %Zahl%==3 goto 3 if %Zahl%==4 goto 4 if %Zahl%==5 goto 5 if %Zahl%==6 goto 6 if %Zahl%==7 goto 7 if %Zahl%==8 goto 8 if %zahl%==9 goto 9

:1 if %z1%==x goto B if %z1%==0 goto A set z1=0 goto check

:2 if %z2%==x goto B if %z2%==0 goto A set z2=0 goto check

:3 if %z3%==x goto B if %z3%==0 goto A set z3=0 goto check

:4 if %z4%==x goto B if %z4%==0 goto A set z4=0 goto check

:5 if %z5%==x goto B if %z4%==0 goto A set z5=0 goto check

:6 if %z6%==x goto B if %z6%==0 goto A set z6=0 goto check

:7 if %z7%==x goto B if %z7%==0 goto A set z7=0 goto check

:8 if %z8%==x goto B if %z8%==0 goto A set z8=0 goto check

:9 if %z9%==x goto B if %z9%==0 goto A set z9=0 goto check

:Spieler2 cls echo. echo Hier wird gespielt: echo ####################### echo. echo %nick2% hat x echo. echo. echo %z1%___%z2%___%z3% echo. echo %z4%___%z5%___%z6% echo.
echo %z7%___%z8%___%z9% e

programmieren, Batch
5 Antworten

Was möchtest Du wissen?