title image


Smiley Makro erweitern
Hallo!



Ich habe vorhin von "Elvis the King" folgendes Makro bekommen:



Public Sub GetWorkbook(ByVal strFileName As String, Optional strSheet As Variant = 1)Dim objWb As Excel.WorkbookOn Error GoTo ErrHandlerSet objWb = Workbooks.Open(strFileName)objWb.Sheets(strSheet).ActivateErrExit: On Error Resume Next Set objWb = Nothing Exit Sub ErrHandler: MsgBox Err.Description, vbCritical, "GetWorkbook: Fehler " & Err.Number & " aufgetreten!" Resume ErrExit End Sub



Klappt auch wunderbar.

Allerdings bräuchte ich noch ein paar Änderungen:



In der Arbeitsmappe in der sich das Makro befindet, soll bevor das Workbook geöffnet wird, auf dem Tabellenblatt 2 geschaut werden, ob sich in A1 eine "1" oder eine "2" befindet. Wenn ja - soll eine MSG-Box mit "Achtung" erscheinen.

Wenn eine andere Zahl drinnen steht, soll das Makro unverändert weiterlaufen..



Hier nochmal ne Übersicht.



Makro wird aktiviert:

Prüfen: Existiert Arbeitsmappe

Wenn Nein = MSGBox: Existiert nicht

Wenn ja = Prüfen ob auf Tabellenblatt 2 in A1 "1" oder "2" drinnen steht.

Wenn ja MSGBox "Achtung"

Wenn nein

Öffne Die Datei "Beispieldatei"



Grüße

Matze











geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: