Office: Abfrage ob Tabellenblatt-Name bereits vorhanden

Helfe beim Thema Abfrage ob Tabellenblatt-Name bereits vorhanden in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Leute, ich habe ein Marko, das mit den Inhalt eines Tabellenblattes in eine andere Excel-Datei abspeichert (Archiv). Dabei wird eine bestimmte... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von AliceD, 23. November 2018.

Seite 1 von 3

ALICED

AliceD

Abfrage ob Tabellenblatt-Name bereits vorhanden

Hallo Leute, ich habe ein Marko, das mit den Inhalt eines Tabellenblattes in
eine andere Excel-Datei abspeichert (Archiv). Dabei wird eine bestimmte Zelle (Datumsangabe) als Tabellenblatt-Name benutzt...
Sollte meine übereifrigen Kollegen, nun aus Unsicherheit etwas abspeichern wollen und es hat schon jemand gespeichert, kommt eine
DEBUGG Fehlermeldung. Mir ist ja klar, was das bedeutet, aber meine lieben Kolleginnen, sind dann doch etwas irritiert und wissen nicht,
was sie machen sollen... nun würde ich gerne eine Abfrage mit einbauen, die schaut, ob der Name bereits vergeben ist und mir dann eine
Meldung rausgibt: "Name bereits vorhanden"...evtl. könnte man sogar noch eine kleine Userform machen: "[Abbrechen] [Vorhandene Blatt ersetzen]" oder so...

Code:

Sub exportieren()
'
' exportieren Makro
'

'
Range("A1:T49").Select
Selection.Copy
Workbooks.Open "C:UsersMitarbeiterDesktopneuer DienstplanDienstplan IIArbeitszeitkonto - Archiv.xlsm"
Windows("Arbeitszeitkonto - Archiv.xlsm").Activate
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
ActiveSheet.Name = [C2]
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

AliceD, 23. November 2018

#1
Hajo_Zi Erfahrener User

feststellen, ob Worksheet vorhanden ist
hier ein Beispiel, welches Du relativ einfach entsprechend abändern kannst:
Code:

Option Explicit

Sub TabAuswahl()
Dim BoVorhanden As Boolean
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
If WsTabelle.Name = "Tabelle1" Then
BoVorhanden = True
Exit For
End If
Next WsTabelle
If BoVorhanden Then
'vorhanden
Else
'nicht vorhanden
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

Hajo_Zi, 25. November 2018

#2
FENNEK11

Fennek11

Hallo,

es gibt noch 2 weitere Varianten:

Code:

if [not(isref(Total!a1))] then sheets.add().name="Total"

---------------
Function SheetExists(shName As String) As Boolean

Dim sh As Worksheet

On Error Resume Next
Set sh = Sheets(shName)
On Error GoTo 0

SheetExists = Not sh Is Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg

Fennek11, 25. November 2018

#3
ALICED

AliceD

Abfrage ob Tabellenblatt-Name bereits vorhanden

ich bekomm es nicht so richtig hin, an welche Stelle müsste ich das denn einfügen? habe es nach dem

Code:

Windows("Arbeitszeitkonto - Archiv.xlsm").Activate
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

geschrieben, es kommt trotzdem noch die Debug Fehlermeldung, bin
da nicht so firm drin, arbeite noch mit makro aufzeichnen... ^^

AliceD, 25. November 2018

#4
HS(V)

HS(V)

Hallo,

Vielleicht.

Code:

Sub exportieren()
With ThisWorkbook.ActiveSheet
Workbooks.Open "C:UsersMitarbeiterDesktopneuer DienstplanDienstplan IIArbeitszeitkonto - Archiv.xlsm"
If IsError(Evaluate("'" & .[C2] & "'!A1")) Then
Sheets.Add(, Sheets(Sheets.Count)).Name = .[C2]
.Range("A1:T49").Copy
With Sheets(.[C2].Value).Cells(1)
.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths
End With
Application.CutCopyMode = False
Else
MsgBox "Name bereits vorhanden."
End If
ActiveWorkbook.Close True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 25. November 2018

#5
ALICED

AliceD

cool danke, jetzt kommt eine Benachrichtigung, das ist schonmal viel besser.
Was genau sagt deine Zeile
Code:

If IsError(Evaluate("'" & .[C2] & "'!A1"))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

???
jetzt speichert er ja die Seite trotzdem als "Tabellex" (x= neue nummer) wo in deinem Code macht er das genau?
könnte man da auch "[C2](kopie)" draus machen? oder so? bzw. die Fehlermeldung und einen Abbruch, so das er
es nicht kopiert? bin mir da noch nicht sicher was ich anchher umsetzen will... aber es interessiert mich, was genau
dein Code da macht... Danke.

AliceD, 25. November 2018

#6
HS(V)

HS(V)

Wenn Tabelle([C2]) vorhanden ist, dann wird nicht kopiert sondern die Msgbox angezeigt.

HS(V), 25. November 2018

#7
ALICED

AliceD

Abfrage ob Tabellenblatt-Name bereits vorhanden

ich hatte es jetzt mal ausprobiert und da hat er es kopiert als "Tabelle2" + die MsgBox...

AliceD, 25. November 2018

#8
HS(V)

HS(V)

Ich kann mir nicht vorstellen (If, Then, Else, End If).

Code:

Sub exportieren()
With ThisWorkbook.ActiveSheet
Workbooks.Open "C:UsersMitarbeiterDesktopneuer DienstplanDienstplan IIArbeitszeitkonto - Archiv.xlsm"
If IsError(Evaluate("'" & .[C2] & "'!A1")) Then
Sheets.Add(, Sheets(Sheets.Count)).Name = .[C2]
.Range("A1:T49").Copy
With Sheets(.[C2].Value).Cells(1)
.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths
End With
Application.CutCopyMode = False
Else
MsgBox "Name bereits vorhanden."
End If
ActiveWorkbook.Close True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 25. November 2018

#9
ALICED

AliceD

häh? jetzt macht er es nicht mehr...
na toll jetzt halten mich alle für bekloppt...
ok, dann danke nochmal *wink.gif*

AliceD, 25. November 2018

#10
ALICED

AliceD

also nur falls dir mal total langweilig sein sollte ^^
eine (wahrscheinlich nur mit Userform) Möglichkeit zu entscheiden ob:

Name bereits vorhanden
[überschreiben][abbrechen]
obwohl abbrechen, ja das wäre, was ja jetzt schon ist...

AliceD, 25. November 2018

#11
HS(V)

HS(V)

Z.B.
Code:

Sub exportieren()
With ThisWorkbook.ActiveSheet
Workbooks.Open "C:UsersMitarbeiterDesktopneuer DienstplanDienstplan IIArbeitszeitkonto - Archiv.xlsm"
If IsError(Evaluate("'" & .[C2] & "'!A1")) Then
Sheets.Add(, Sheets(Sheets.Count)).Name = .[C2]
Else
If MsgBox("Name bereits vorhanden." & vbLf & vbLf & "überschreiben ?", vbYesNo) = vbNo Then GoTo ende
End If
.Range("A1:T49").Copy
With Sheets(.[C2].Value).Cells(1)
.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths
End With
Application.CutCopyMode = False
ende: ActiveWorkbook.Close True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 25. November 2018

#12
ALICED

AliceD

Abfrage ob Tabellenblatt-Name bereits vorhanden

boah wie cool, ich sag jetzt mal sowas von Danke !!! *grins

letzte Frage (versprochen) wenn ich das Archiv danach öffne, sind die eingefügten Felder noch markiert, obwohl ja
Code:

Application.CutCopyMode = False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das eigentlich beenden müsste, oder?

AliceD, 25. November 2018

#13
ALICED

AliceD

ach Mist ^^ jetzt fällt mir doch noch ein Frage ein, in der gleichen Datei, andere Tabelle, da wird intern gespeichert, da müsste ich doch die abfrage zum überspielen eigentlich auch nutzen können, oder?

original Code:
Code:

Sub Speichern()

Range("A1:U33").Select
Range("C3").Activate
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = [BackUp_Daten!B1]
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Range("C3").Select
Sheets("Dienstplan").Select
Range("C3:U33").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C3").Select

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

AliceD, 25. November 2018

#14
HS(V)

HS(V)

#13), Nein, das beendet der ausgewählte Bereich Range("A1:T49")

Code:

Sub exportieren()
With ThisWorkbook.ActiveSheet
Workbooks.Open "C:UsersMitarbeiterDesktopneuer DienstplanDienstplan IIArbeitszeitkonto - Archiv.xlsm"
If IsError(Evaluate("'" & .[C2] & "'!A1")) Then
Sheets.Add(, Sheets(Sheets.Count)).Name = .[C2]
Else
If MsgBox("Name bereits vorhanden." & vbLf & vbLf & "überschreiben ?", vbYesNo) = vbNo Then GoTo ende
End If
.Range("A1:T49").Copy
With Sheets(.[C2].Value)
.Cells(1).PasteSpecial xlPasteAll
.Cells(1).PasteSpecial xlPasteColumnWidths
Application.Goto .Cells(1)
End With
Application.CutCopyMode = False
ende: ActiveWorkbook.Close True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 25. November 2018

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 3

Thema:

Abfrage ob Tabellenblatt-Name bereits vorhanden

Die Seite wird geladen...

Abfrage ob Tabellenblatt-Name bereits vorhanden - Similar Threads - Abfrage Tabellenblatt Name
Abfrage: Anzahl von Kriterium >0
in Microsoft Access Hilfe
Abfrage: Anzahl von Kriterium >0: Hallo, [ATTACH] Ich versuche gerade, die Anzahl der belegten Plätze auf einem LKW per Abfrage zu ermitteln. Dabei wäre dann FSPal > 0. Leider zeigt er mir die Anzahl der Plätze an. [ATTACH]...
Variable Abfrage auf verschiedene Tabellenblätter
in Microsoft Excel Hilfe
Variable Abfrage auf verschiedene Tabellenblätter: Hallo zusammen, bitte um Hilfe bei folgendem Problem: Ausgangssituation: Tabelle "Artikel" mit allgemeinen Stammdaten, darunter je eine Spalte "Artikelnummer" und "Sachmerkmalnummer" Tabellen...
Aktives Tabellenblatt abfragen
in Microsoft Excel Hilfe
Aktives Tabellenblatt abfragen: Hallo Forumsgemeinde, bastle gerade an einem Stundenerfassungsprogramm. Dieser "Stunden.xls" habe ich eine eigene Symbolleiste angebunden. Einige Schalter dieser Symbolleiste können nur in den...
2x Abfrage mit Inputbox nach Tabellenblatt und anscjließend Passwort
in Microsoft Excel Hilfe
2x Abfrage mit Inputbox nach Tabellenblatt und anscjließend Passwort: Hallo zusammen, ich möchte ein einer Datei die Tabellenblätter nur mit Passwort ein / ausblenden. Am liebsten wären mir zwei codes um 1. ein ausgeblendetes Tabellenblatt zu suchen und per...
wenn abfrage und multiplikation übers ganze tabellenblatt
in Microsoft Excel Hilfe
wenn abfrage und multiplikation übers ganze tabellenblatt: Hallo Zusammen, folgende Formel habe ich gemacht, um mein Problem zu lösen:...
Zellen aus Tabellenblättern per Makro für bestimmte Nutzer ohne PW-Abfrage freigeben
in Microsoft Excel Hilfe
Zellen aus Tabellenblättern per Makro für bestimmte Nutzer ohne PW-Abfrage freigeben: Hallo zusammen, da ich ein absoluter Neuling im VBA-Editor in Excel bin, möchte ich hier um Hilfe bitten. Mein Problem besteht darin, dass ich einzelne Zellen in Tabellenblättern nur für...
Abfrage ob Tabellenblatt vorhanden ist
in Microsoft Excel Hilfe
Abfrage ob Tabellenblatt vorhanden ist: Hallo zusammen, ich bin noch neu im Forum. Habe vor ca. 8 Jahren schonmal meine Erfahrungen mit VBA Programmierung gemacht, jetzt ist aber so einiges eingerostet und ich könnte ein wenig Hilfe...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden