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; thx, die Frage aus #6 ist auch noch offen... mich verwirrt das A1 da @ #14 habs schon alleine versucht anzupassen, aber da sind wohl schon meine... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von AliceD, 23. November 2018.

Seite 2 von 3

ALICED

AliceD

Abfrage ob Tabellenblatt-Name bereits vorhanden

thx, die Frage aus #6 ist auch noch offen... mich verwirrt das A1 da

@ #14 habs schon alleine versucht anzupassen, aber da sind wohl schon meine Grenzen...

AliceD, 25. November 2018

#16
HS(V)

HS(V)

Es prüft, ob die Zelle A1 vorhanden ist von der Tabelle mit den Namen der Wert C1 um den neuen Tabelle zu erstellen oder nicht.

Wenn es einen Fehler (Iserror) gibt, erstelle ein neues Blatt.

HS(V), 25. November 2018

#17
ALICED

AliceD

versteh ich zwar nicht so ganz, aber wenn ich das versuche funktioniert es leider nicht... (@#14)

Code:

Sub Speichern()
With ThisWorkbook.ActiveSheet
If IsError(Evaluate("'" & .[BackUp_Daten!B1] & "'!A1")) Then
Sheets.Add(, Sheets(Sheets.Count)).Name = .[BackUp_Daten!B1]
Else
If MsgBox("Diese Liste wurde bereits abgespeichert." & vbLf & vbLf & "Wollen Sie diese überschreiben ?", vbYesNo) = vbNo Then GoTo ende
End If
Range("A1:U33").Select
Range("C3").Activate
Selection.Copy
With Sheets(.[BackUp_Daten!B1].Value).Cells(1)
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
Application.Goto .Cells(1)
End With
Application.CutCopyMode = False
ende: Range("C3").Select
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

er erstellt ein neues Blatt er leert auch das alte, aber kopiert das vorherige nicht rein, aber die Fehlermeldung,
wenn es das Blatt schon gibt, dass funktioniert ^^

AliceD, 25. November 2018

#18
HS(V)

HS(V)

Abfrage ob Tabellenblatt-Name bereits vorhanden

Hallo AliceD,

Versteh ich nicht, Du kannst es fast eins zu eins übernehmen.

HS(V), 26. November 2018

#19
ALICED

AliceD

hab ich ja versucht, aber irgendwo hab ich da einen Fehler eingebaut... siehst ja den Code ^^
dazu kommt, das er mir jetzt die zusammengefügten Zellen in A alle wieder entmergt... warum auch immer...

hab noch etwas rumprobiert, irgendiewie sind meine Einfügeoptionen nicht mit deinem Code kompatibel...

AliceD, 26. November 2018

#20
ALICED

AliceD

so halb funktioniert es ja, also zumindestens das einfügen, das leeren, müsste ich noch amchen, aber nach dem Einfügen kommt:

[Sollen die Inhalte des Zielbereiches überschrieben werden?]
[ja][Nein]

was müsste ich da schreiben (als Code, das er das automatisch macht?)

ich bekomm, die Fehler Meldung sogar weg, indem ich hinter das ColumnWidths,
noch: , Operation:=xlNone, SkipBlanks:=False, Transpose:=False
schreibe... aber dann fügt er es im falschen Format ein... ich weine gleich...

AliceD, 26. November 2018

#21
HS(V)

HS(V)

Hallo AliceD,

Es würde z.B. wie folgt aussehen (aus dem Stegreif).

Code:

Sub Speichern_???()
with Sheets("Dienstplan")
If IsError(Evaluate("'" & [BackUp_Daten!B1] & "'!A1")) Then
Sheets.Add(, Sheets(Sheets.Count)).Name = [BackUp_Daten!B1]
Else
If MsgBox("Diese Liste wurde bereits abgespeichert." & vbLf & vbLf & "Wollen Sie diese überschreiben ?", vbYesNo) = vbNo Then GoTo ende
End If
.Range("A1:U33").Copy
With Sheets([BackUp_Daten!B1].Value).Cells(1)
.pastespecial xlpasteall
.PasteSpecial xlPasteColumnWidths
end with
.Range("C3:U33").ClearContents
ende: application.goto .Range("C3")
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 26. November 2018

#22
ALICED

AliceD

Abfrage ob Tabellenblatt-Name bereits vorhanden

Danke, das hat mir sehr weiter geholfen...
es kam zwar auch der Fehler, aber ich habe Zeitgleich, es dann doch irgendwie geschafft, aber mit deinem letzten Code, konnte ich dann gleich weiter machen. Funktionieren tut es jetzt so
Code:

Sub Speichern()
With Sheets("Dienstplan")
If IsError(Evaluate("'" & .[BackUp_Daten!B1] & "'!A1")) Then
Sheets.Add(, Sheets(Sheets.Count)).Name = .[BackUp_Daten!B1]
Else
If MsgBox("Diese Liste wurde bereits abgespeichert." & vbLf & vbLf & "Wollen Sie diese überschreiben ?", vbYesNo) = vbNo Then GoTo ende
End If
.Range("A1:U33").Copy
With Sheets(.[BackUp_Daten!B1].Value).Cells(1)
.PasteSpecial xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.Goto .Cells(1, 21)
End With
.Range("C3:U33").ClearContents
Application.CutCopyMode = False
ende: Sheets("Dienstplan").Select
Range("J1").Select
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

AliceD, 26. November 2018

#23
ALICED

AliceD

doch noch ein kleines Problemchen ^^

Code:

Sub Speichern()
With Sheets("Dienstplan")
If IsError(Evaluate("'" & .[BackUp_Daten!B1] & "'!A1")) Then
Sheets.Add(, Sheets(Sheets.Count)).Name = .[BackUp_Daten!B1]
Else
If MsgBox("Diese Liste wurde bereits abgespeichert." & vbLf & vbLf & "Wollen Sie diese überschreiben ?", vbYesNo) = vbNo Then GoTo ende
End If
.Range("A1:U33").Copy
With Sheets(.[BackUp_Daten!B1].Value).Cells(1)
.PasteSpecial xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.Goto .Cells(1, 21)
End With
.Range("C3:U33").ClearContents
Application.CutCopyMode = False
ende: Sheets("Dienstplan").Select
Range("J1").Select
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

alles funzt, aber wenn ich ihn tatsächlich ein vorhandenes Blatt überspielen lasse gibt es eine Fehlermeldung.

AliceD, 26. November 2018

#24
HS(V)

HS(V)

Activesheet löschen.

HS(V), 26. November 2018

#25
EARLFRED

EarlFred

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

Diese Methode prüft NICHT sicher, ob das Blatt existiert!

Und ewöhn Dir diese Schreibweise ab:
[BackUp_Daten!B1]
In den meisten Fällen unbrauchbar. Habe ich dir aber schon einmal gesagt.

EarlFred, 26. November 2018

#26
HARY

hary

Moin EarlFred
IsError(Evaluate
nehm ich meist auch zum pruefen.

Diese Methode prüft NICHT sicher, ob das Blatt existiert!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kannst du mir mal bitte erklaeren in welchen Faellen die Pruefung versagt / versagen koennte.
Hatte bis jetzt nie Schwierigkeiten. Vlt. lag es auch am Glueck.
Danke
gruss hary

hary, 26. November 2018

#27
EARLFRED

EarlFred

Abfrage ob Tabellenblatt-Name bereits vorhanden

Hi hary,

da ist erschreckend einfach:
Tabelle1, A1 = 1/0
(Beispiel! *wink.gif*)

Jetzt prüf mit Deiner Methode, ob es Tabelle1 gibt...

Fennek11 hat im Beitrag #3 eine geringfügig bessere Variante 1 gepostet, wobei die Variante 2 (die Function) deutlich besser ist - diese sollte allerdings noch um die Übergabe des gewünschten Workbooks erweitert werden.

Grüße
EarlFred

EarlFred, 26. November 2018

#28
HARY

hary

Moin EarlFred
Jetzt wo ich es lese. Haette ich auch drauf kommen koennen/muessen.
Abfrage: IsError

Ausgelagerte Function mach ich auch, nur war die mit IsError kuerzer.
Also liegt es auch am Glueck.
Danke
gruss hary

hary, 26. November 2018

#29
ALICED

AliceD

ja also da muss ich dir völlig recht geben, sowas aber auch... und vor allem: äähhhh WAS?

@#25 hab ich gemacht, dann kommt wieder die Fehlermeldung...

AliceD, 27. November 2018

#30

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

Seite 2 von 3

Thema:

Abfrage ob Tabellenblatt-Name bereits vorhanden

Die Seite wird geladen...

Abfrage ob Tabellenblatt-Name bereits vorhanden - Similar Threads - Abfrage Tabellenblatt Name
Ausführen einer Abfrage Forcieren
in Microsoft Access Hilfe
Ausführen einer Abfrage Forcieren: Guten Morgen Ich hätte mal ne Frage zum Ausführen von Abfragen mittels VBA. Mittels VBA kann ich ja via "docmd.openquery ..." eine Abfrage ausführen. Ich nutze das immer wieder mal um z.b:...
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