Hallo,
dank kompetenter Hilfe aus dem
Supportnet arbeite ich mit unten stehendem Makro, dieses legt Tabellen neu an.
Siehe:
www.supportnet.de/t/2258587
Es ist allerdings so, dass (falls irrtümlich eine Tabelle das zweite Mal angelegt wird) die erste Tabelle überschrieben wird.
Ich benötige also eine Abfrage, ob die Tabelle bereits vorhanden ist.
If Tabelle vorhanden Then
MsgBox "Tabelle existiert bereits !"
Else
Ich stehe mal wieder total auf dem "Schlauch", weiss weder
WIE noch
WO ich das einbinden müsste - nach
With objWorkbookOpen ???
Ich hoffe nochmals auf Hilfe, vielen Dank ...
Gruss
Petra
Option Explicit
Sub UserDatei_oeffnen_fuellen_und_speichern()
Dim objWorkbookOpen As Object
On Error GoTo ERRORHANDLER
Application.DisplayAlerts = False
If Columns(1).EntireColumn.Hidden = False Then
Set objWorkbookOpen = Workbooks.Open(ThisWorkbook.Path & "\User1\User1.xls")
With objWorkbookOpen
.Sheets("Tabelle1").Range("I3") = ThisWorkbook.Sheets("Lieferanten").Range("M5")
.SaveAs ThisWorkbook.Path & "\User1\" & .Sheets("Tabelle1").Range("I3") & ".xls"
End With
ElseIf Columns(1).EntireColumn.Hidden = True Then
Set objWorkbookOpen = Workbooks.Open(ThisWorkbook.Path & "\User2\User2.xls")
With objWorkbookOpen
.Sheets("Tabelle1").Range("I3") = ThisWorkbook.Sheets("Lieferanten").Range("M5")
.SaveAs ThisWorkbook.Path & "\User2\" & .Sheets("Tabelle1").Range("I3") & ".xls"
End With
End If
ERRORHANDLER:
Application.DisplayAlerts = True
Set objWorkbookOpen = Nothing
End Sub