PDA

Vollständige Version anzeigen : VBA Code für MsgBox


cpepe
14.09.2011, 14:00
Hallo VBA Spezialisten
Ich hätte eine Frage, da ich immer noch Anfänger mit VBA bin, wiess ich nicht genau wie man eine MsgBox definiert, dass er 4 Antworten auf eine Meldung gibt.
z.B. Ich muss 4 File Kopieren und das Code sollte mir am Schluss sagen welche files berets vorhanden waren oder welche Files neu kopiert worden sind.
Als Orientierung lege ich meinen aktuell code, er funktioniert soweit aber er wird mir 4 Meldung geben. Ich möchte dass am Schluss mur ein Meldung kommt mit text was er gemacht hat etwerder bereits vorhanden File oder nue Files kopiert. Wäre das überhapt möglich? Für Eure Unterstützung Besten Danke in Voraus und Grüsse


Private Sub CmdCopyALLFiles_Click()

If Len(Dir(sPathLan, vbDirectory)) <> 0 Then
If Len(Dir(sPathLan & dYear & "\" & sYm & "\License\" + sYm & "_CH_LI_SV.xls")) <> 0 Then
MsgBox "File " & sYm & "_CH_LI_SV.xls" & " ready exist"
GoTo File_CH_LI_DB
Else
FileCopy sPathLan & dYear & "\" & sYmOld & "\License\" + sYmOld & "_CH_LI_SV.xls", _
sPathLan & dYear & "\" & sYm & "\License\" + sYm & "_CH_LI_SV.xls"
MsgBox "File " & sYm & "_CH_LI_SV.xls" & " successful copied"
End If
File_CH_LI_DB:
If Len(Dir(sPathLan & dYear & "\" & sYm & "\License\" + sYm & "_CH_LI_DB.xls")) <> 0 Then
MsgBox "File " & sYm & "_CH_LI_DB.xls" & " ready exist"
GoTo File_CH_WS_SV
Else
FileCopy sPathLan & dYear & "\" & sYmOld & "\License\" + sYmOld & "_CH_LI_DB.xls", _
sPathLan & dYear & "\" & sYm & "\License\" + sYm & "_CH_LI_DB.xls"
MsgBox "File " & sYm & "_CH_LI_DB.xls" & " successful copied"
End If
File_CH_WS_SV:
If Len(Dir(sPathLan & dYear & "\" & sYm & "\Workstation\" + sYm & "_CH_WS_SV.xls")) <> 0 Then
MsgBox "File " & sYm & "_CH_WS_SV.xls" & " ready exist"
GoTo File_AssetConfiguration_DCP
Else
FileCopy sPathLan & dYear & "\" & sYmOld & "\Workstation\" + sYmOld & "_CH_WS_SV.xls", _
sPathLan & dYear & "\" & sYm & "\Workstation\" + sYm & "_CH_WS_SV.xls"
MsgBox "File " & sYm & "_CH_WS_SV.xls" & " successful copied"
End If
File_AssetConfiguration_DCP:
If Len(Dir(sPathLan & dYear & "\" & sYm & "\" + "CH_AssetConfiguration_DCP-" & sYm & "_V1.0.xls")) <> 0 Then
MsgBox "File " & "CH_AssetConfiguration_DCP-" & sYm & "_V1.0.xls" & " ready exist"
Else
FileCopy sPathLan & dYear & "\" & sYmOld & "\" + "CH_AssetConfiguration_DCP-" & sYmOld & "_V1.0.xls", _
sPathLan & dYear & "\" & sYm & "\" + "CH_AssetConfiguration_DCP-" & sYm & "_V1.0.xls"
MsgBox "File " & "CH_AssetConfiguration_DCP-" & sYm & "_V1.0.xls" & " successful copied"
End If
Else
MsgBox "No LAN Connection or Path not found", _
vbCritical + vbOKOnly, "ERROR"
End If
End Sub

pefeu
14.09.2011, 14:42
Hallo cpepe,

versuche es so:
<Font Face="Courier New,FixedSys"Size=2><Blockquote><FONT COLOR=#0000FF>Option</FONT>&nbsp;<FONT COLOR=#0000FF>Explicit</FONT>

<FONT COLOR=#0000FF>Private</FONT>&nbsp;<FONT COLOR=#0000FF>Sub</FONT>&nbsp;CmdCopyALLFiles_Click()

<FONT COLOR=#0000FF>Dim</FONT>&nbsp;sPathLan&nbsp;&nbsp;<FONT COLOR=#0000FF>As</FONT>&nbsp;<FONT COLOR=#0000FF>String</FONT>
<FONT COLOR=#0000FF>Dim</FONT>&nbsp;dYear&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>As</FONT>&nbsp;<FONT COLOR=#0000FF>Long</FONT>
<FONT COLOR=#0000FF>Dim</FONT>&nbsp;sYm&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>As</FONT>&nbsp;<FONT COLOR=#0000FF>String</FONT>
<FONT COLOR=#0000FF>Dim</FONT>&nbsp;sYmold&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>As</FONT>&nbsp;<FONT COLOR=#0000FF>String</FONT>
<FONT COLOR=#0000FF>Dim</FONT>&nbsp;sText&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>As</FONT>&nbsp;<FONT COLOR=#0000FF>String</FONT>

<FONT COLOR=#0000FF>If</FONT>&nbsp;Len(Dir(sPathLan,&nbsp;vbDirectory))&nbsp;&lt;&gt;&nbsp;0&nbsp;<FONT COLOR=#0000FF>Then</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>If</FONT>&nbsp;Len(Dir(sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"\License\"&nbsp;+&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_LI_SV.xls"))&nbsp;&lt;&gt;&nbsp;0&nbsp;<FONT COLOR=#0000FF>Then</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sText&nbsp;=&nbsp;"File&nbsp;"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_LI_SV.xls"&nbsp;&amp;&nbsp;"&nbsp;ready&nbsp;exist"
<FONT COLOR=#008000>' GoTo File_CH_LI_DB</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>Else</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FileCopy&nbsp;sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYmold&nbsp;&amp;&nbsp;"\License\"&nbsp;+&nbsp;sYmold&nbsp;&amp;&nbsp;"_CH_LI_SV.xls",&nbsp;_
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"\License\"&nbsp;+&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_LI_SV.xls"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sText&nbsp;=&nbsp;"File&nbsp;"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_LI_SV.xls"&nbsp;&amp;&nbsp;"&nbsp;successful&nbsp;copied"
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>If</FONT>
<FONT COLOR=#008000>'File_CH_LI_DB:</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>If</FONT>&nbsp;Len(Dir(sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"\License\"&nbsp;+&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_LI_DB.xls"))&nbsp;&lt;&gt;&nbsp;0&nbsp;<FONT COLOR=#0000FF>Then</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sText&nbsp;=&nbsp;sText&nbsp;&amp;&nbsp;vbNewLine&nbsp;&amp;&nbsp;"File&nbsp;"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_LI_DB.xls"&nbsp;&amp;&nbsp;"&nbsp;ready&nbsp;exist"
<FONT COLOR=#008000>' GoTo File_CH_WS_SV</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>Else</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FileCopy&nbsp;sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYmold&nbsp;&amp;&nbsp;"\License\"&nbsp;+&nbsp;sYmold&nbsp;&amp;&nbsp;"_CH_LI_DB.xls",&nbsp;_
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"\License\"&nbsp;+&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_LI_DB.xls"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sText&nbsp;=&nbsp;sText&nbsp;&amp;&nbsp;vbNewLine&nbsp;&amp;&nbsp;"File&nbsp;"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_LI_DB.xls"&nbsp;&amp;&nbsp;"&nbsp;successful&nbsp;copied"
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>If</FONT>
<FONT COLOR=#008000>'File_CH_WS_SV:</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>If</FONT>&nbsp;Len(Dir(sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"\Workstation\"&nbsp;+&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_WS_SV.xls"))&nbsp;&lt;&gt;&nbsp;0&nbsp;<FONT COLOR=#0000FF>Then</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sText&nbsp;=&nbsp;sText&nbsp;&amp;&nbsp;vbNewLine&nbsp;&amp;&nbsp;"File&nbsp;"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_WS_SV.xls"&nbsp;&amp;&nbsp;"&nbsp;ready&nbsp;exist"
<FONT COLOR=#008000>' GoTo File_AssetConfiguration_DCP</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>Else</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FileCopy&nbsp;sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYmold&nbsp;&amp;&nbsp;"\Workstation\"&nbsp;+&nbsp;sYmold&nbsp;&amp;&nbsp;"_CH_WS_SV.xls",&nbsp;_
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"\Workstation\"&nbsp;+&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_WS_SV.xls"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sText&nbsp;=&nbsp;sText&nbsp;&amp;&nbsp;vbNewLine&nbsp;&amp;&nbsp;"File&nbsp;"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"_CH_WS_SV.xls"&nbsp;&amp;&nbsp;"&nbsp;successful&nbsp;copied"
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>If</FONT>
<FONT COLOR=#008000>'File_AssetConfiguration_DCP:</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>If</FONT>&nbsp;Len(Dir(sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"\"&nbsp;+&nbsp;"CH_AssetConfiguration_DCP-"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"_V1.0.xls"))&nbsp;&lt;&gt;&nbsp;0&nbsp;<FONT COLOR=#0000FF>Then</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sText&nbsp;=&nbsp;sText&nbsp;&amp;&nbsp;vbNewLine&nbsp;&amp;&nbsp;"File&nbsp;"&nbsp;&amp;&nbsp;"CH_AssetConfiguration_DCP-"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"_V1.0.xls"&nbsp;&amp;&nbsp;"&nbsp;ready&nbsp;exist"
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>Else</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FileCopy&nbsp;sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYmold&nbsp;&amp;&nbsp;"\"&nbsp;+&nbsp;"CH_AssetConfiguration_DCP-"&nbsp;&amp;&nbsp;sYmold&nbsp;&amp;&nbsp;"_V1.0.xls",&nbsp;_
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sPathLan&nbsp;&amp;&nbsp;dYear&nbsp;&amp;&nbsp;"\"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"\"&nbsp;+&nbsp;"CH_AssetConfiguration_DCP-"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"_V1.0.xls"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sText&nbsp;=&nbsp;sText&nbsp;&amp;&nbsp;vbNewLine&nbsp;&amp;&nbsp;"File&nbsp;"&nbsp;&amp;&nbsp;"CH_AssetConfiguration_DCP-"&nbsp;&amp;&nbsp;sYm&nbsp;&amp;&nbsp;"_V1.0.xls"&nbsp;&amp;&nbsp;"&nbsp;successful&nbsp;copied"
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>If</FONT>
<FONT COLOR=#0000FF>Else</FONT>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox&nbsp;"No&nbsp;LAN&nbsp;Connection&nbsp;or&nbsp;Path&nbsp;not&nbsp;found",&nbsp;_
&nbsp;&nbsp;&nbsp;&nbsp;vbCritical&nbsp;+&nbsp;vbOKOnly,&nbsp;"ERROR"

<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>If</FONT>

&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>If</FONT>&nbsp;sText&nbsp;&lt;&gt;&nbsp;""&nbsp;<FONT COLOR=#0000FF>Then</FONT>&nbsp;_
&nbsp;&nbsp;&nbsp;MsgBox&nbsp;sText&nbsp;&amp;&nbsp;vbInformation&nbsp;&amp;&nbsp;vbOKOnly&nbsp;&amp;&nbsp;"&nbsp;&nbsp;&nbsp;Information&nbsp;for&nbsp;"&nbsp;&amp;&nbsp;Application.UserName

<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>Sub</FONT>
</Blockquote><Font Face="Courier New,FixedSys"Size=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Code eingefügt mit <b><a href="http://rtsoftwaredevelopment.de/SyntaxHi.zip">Syntaxhighlighter 1.14</a></b></Font><Font Size=2></p>
Gruß Peter

cpepe
14.09.2011, 16:17
Sali Peter
Es funktioniert Super.

Dankschön und Grüsse
cpepe