Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

VBA-Code ändern

Betrifft: VBA-Code ändern von: Harald S
Geschrieben am: 12.08.2004 20:49:25

Hallo Leute

wie kann ich Folgendes Makro von Hans ändern, das wenn ich dieses ein 2.Mal starte nicht ein neues Tabellenblatt erzeugt sondern in das Bestehende[mit dem Namen[Blatt1) kopiert?????
hab schon vielse probiert und bin nun am verzweifeln

Sub TabImport()
   Dim wkb As Workbook
   Dim sFile As String
   Application.ScreenUpdating = False
   sFile = Range("B1").Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Datei wurde nicht gefunden!"
      Exit Sub
   End If
   On Error GoTo ERRORHANDLER
   Application.EnableEvents = False
   Set wkb = Workbooks.Open(sFile, False)
   With ThisWorkbook
      Worksheets(1).Copy .Worksheets("Blatt1")
   End With
   wkb.Close savechanges:=False
ERRORHANDLER:
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub



vielleicht kann mir hier jemand Helfen

DANKE
Harald
  


Betrifft: AW: VBA-Code ändern von: Andi
Geschrieben am: 13.08.2004 15:08:22

Hi,

nicht getestet...

Sub TabImport()
Dim bExists As Boolean
Dim oWorkbook As Object
bExists = False
With Application
  For Each oWorkbook In .Workbooks
    If UCase$(oWorkbook.Name) = Range("B1").Value Then
      Windows(oWorkbook.Name).Activate
      bExists = True
      Exit For
    End If
  Next
End With
If Not bExists Then
  On Error Resume Next
  Workbooks.Open Filename:=Range("B1").Value, ReadOnly:=False
  On Error GoTo 0
End If
End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "VBA-Code ändern"