Blattname_nach_Zellinhalt

Hallo Forum,
ich möchte eine Tabelle nach Zellinhalt erstellen.
Tabellenname soll aus Sheet("tab1"). range("b2") kommen.
Vorher soll überprüft werden, ob die Tabelle existiert oder nicht
Wenn ja, soll ein Hinweis kommen mit "existiert" und "soll die vorhandene tabelle gelöscht werden"
Wenn nein, soll die Tabelle erstellt werden.
Mein Makro ist wohl walsch 8-)
Dank im Voraus und
Gruss
mehmet
'Blattname_nach_Zellinhalt()


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("tab1").Select: Range("B2").Select
If MsgBox("Tabelle" & Chr(13) & "erstellen?", vbYesNo, "mehmet?") = vbYes Then
If ActiveSheet.Name = Sheets("tab1").Range("B2") = True Then
End If
Else
Sheets.Add.Name = Sheets("tab1").Range("B2")
MsgBox "Tabelle" & Chr(13) & ActiveSheet.Name & Chr(13) & "erstellt", vbOKOnly, "mehmet"
Sheets("tab1").Select: Range("B2").Select
End If
Else
MsgBox "Tabelle nicht " & Chr(13) & "erstellt", vbOKOnly, "mehmet"
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If MsgBox("Tabelle" & Chr(13) & "erstellen?", vbYesNo, "mehmet?") = vbYes Then If ActiveSheet.Name = Sheets("tab1").Range("B2") = True Then ActiveSheet.Delete Sheets.Add.Name = Sheets("tab1").Range("B2") MsgBox "Tabelle" & Chr(13) & ActiveSheet.Name & Chr(13) & "existierte schon, wurde _ gelöscht und neu erstellt", vbOKOnly, "mehmet" End If Else MsgBox "Tabelle nicht " & Chr(13) & "erstellt", vbOKOnly, "mehmet" End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If MsgBox("Tabelle" & Chr(13) & "erstellen?", vbYesNo, "mehmet?") = vbYes Then If ActiveSheet.Name = Sheets("tab1").Range("B2") = True Then 'ActiveSheet.Delete Sheets.Add.Name = Sheets("tab1").Range("B2") MsgBox "Tabelle" & Chr(13) & ActiveSheet.Name & Chr(13) & "existierte schon, wurde gelöscht und _ neu erstellt", vbOKOnly, "mehmet" End If Else MsgBox "Tabelle nicht " & Chr(13) & "erstellt", vbOKOnly, "mehmet" End If End Sub

Sub Fragen_ob_Tabelle_existiert() überprüfen, ob die Tabelle mit dem namen von tab1 zelle b2 value existiert. Wenn nein, dann erstellen. Wenn ja, fragen ob die exsistierende Tabelle überschrieben werden soll (löschen, neu erstellen) End Sub

Sub ENDLICH() Sheets("tab1").Select: Range("B2").Select 'gehe zu Dim blatt As Object, Blattname$ Blattname = Sheets("tab1").Range("B2") For Each blatt In Sheets If blatt.Name = Blattname Then MsgBox "Tabelle " & Blattname & " existiert." 'frage soll überschrieben werden If MsgBox("frage soll überschreiben", vbYesNo, "mehmet?") = vbYes Then Worksheets(Blattname).Delete 'Dann lösche Blattname nach Zellinhalt Sheets.Add.Name = Sheets("tab1").Range("B2") 'Dann erstelle Blattname nach _ Zellinhalt Sheets("tab1").Select: Range("B2").Select 'gehe zu MsgBox "Tabelle " & Blattname & " neu erstellt" 'wenn ja, dann lösche alte und erstelle neue 'sonst nichts End If Exit Sub End If Next MsgBox "Tabelle " & Blattname & " existiert nicht." Sheets.Add.Name = Sheets("tab1").Range("B2") 'Dann erstelle Blattname nach Zellinhalt MsgBox "habe erstellt" Sheets("tab1").Select: Range("B2").Select 'gehe zu End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread