anna2701
Dec 15, 2014, updated at Dec 17, 2014 (UTC)
view15082
view9
0
Goto Top

Mit VBA prüfen, ob Tabellenblatt existiert

GermansolvedQuestionVB for ApplicationsDevelopment
Hallo zusammen,

ich habe folgendes Problem: Ich prüfe in meinem Code, ob ein Tabellenblatt existiert und wenn es existiert soll es gelöscht werden. Soweit so gut. Allerdings wird ein Teil des Names des Tabellenblatts aus einer Combobox ausgelesen. Der Name wird wie folgt erzeugt: "DiagrammNNZ_" & Tabelle4.ComboBox1.Text
Wenn ich aber folgenden Code schreibe, wird nur versucht, das Tabellenblatt zu löschen, welche Bezeichnung gerade in der Combobox ausgewahlt ist und nicht alle Bezeichungen die es in der Combobox auszuwählen gibt. Ich hoffe, ihr versteht mich face-sad

On Error Resume Next
If Worksheets("DiagrammNNZ_" & Tabelle4.ComboBox1.Text ) Is Nothing Then
On Error GoTo 0
Sheets("DiagrammNNZ_" & Tabelle4.ComboBox1.Text ).Delete
End If


Liebe Grüße, Anna
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 257674

Url: https://administrator.de/contentid/257674

Printed on: April 24, 2024 at 23:04 o'clock

9 Comments
Latest comment
Goto Top
Member: colinardo
colinardo Dec 15, 2014 updated at 12:41:20 (UTC)
Goto Top
Hallo Anna,
wenn ich dich richtig verstanden habe erreichst du das Gewünschte mit folgendem Code
Dim ws As Worksheet, strSuchname As String
Application.DisplayAlerts = False
strSuchname = "DiagrammNNZ_" & Tabelle4.ComboBox1.Text  
For Each ws In Worksheets
    If Left(ws.Name, Len(strSuchname)) = strSuchname Then
        ws.Delete
    End If
Next
Application.DisplayAlerts = True
Grüße Uwe

p.s. Bitte nutze in Zukunft Code-Tags für deinen Quellcode: <code> Quellcode </code>. Merci.
Member: Anna2701
Anna2701 Dec 15, 2014 at 12:46:26 (UTC)
Goto Top
Es funktioniert noch nicht so ganz. Es gibt dann einen Fehler in Zeile 21.

'Alte Tabellenblätter löschen  

Dim ws As Worksheet, strSuchname As String
Application.DisplayAlerts = False
strSuchname = "DiagrammNNZ_" & Tabelle4.ComboBox1.Text  
For Each ws In Worksheets
    If Left(ws.Name, Len(strSuchname)) = strSuchname Then
        ws.Delete
    End If
Next
Application.DisplayAlerts = True


'Neues Tabellenblatt erzeugen (DiagrammNNZ - <Auswahl von Kombobox>)  


        Dim strDiagrammanme  ' Names des Diagrammblattes  
        strDiagrammname = "DiagrammNNZ_" & Tabelle4.ComboBox1.Text  
        ActiveSheet.Shapes.AddChart.Select
        ActiveChart.ChartType = xlColumnClustered
        ActiveChart.Location xlLocationAsNewSheet, "DiagrammNNZ_" & Tabelle4.ComboBox1.Text  
        With ActiveChart
            .SeriesCollection.NewSeries
            .SetSourceData Source:=Tabelle4.Range(Tabelle4.Cells(i, j), Tabelle4.Cells(i, 5)) ' Range auf horizontal ändern  
            .SeriesCollection(1).XValues = Tabelle4.Range(Tabelle4.Cells(k, l), Tabelle4.Cells(k, 5))
        End With
        With ActiveChart.Axes(xlValue)
            .MinimumScale = 0
            .MaximumScale = ymax
        End With
Member: colinardo
colinardo Dec 15, 2014 updated at 12:49:48 (UTC)
Goto Top
Zitat von @Anna2701:

Es funktioniert noch nicht so ganz. Es gibt dann einen Fehler in Zeile 21.
Mein Code funktioniert, ist wohl eher deinem Code geschuldet, weil du dein Sheet mit dem neuen Namen natürlich erst vorher erstellen musst face-wink das hast du vergessen...
Member: Anna2701
Anna2701 Dec 15, 2014 at 12:52:06 (UTC)
Goto Top
Der Fehler entsteht nur, wenn das Tabellenblatt existiert. Lösche ich das Tabellenblatt manuell, funktioniert es. face-sad
Member: colinardo
Solution colinardo Dec 15, 2014, updated at Dec 17, 2014 at 09:49:57 (UTC)
Goto Top
Zitat von @Anna2701:
Der Fehler entsteht nur, wenn das Tabellenblatt existiert. Lösche ich das Tabellenblatt manuell, funktioniert es. face-sad
Das kommt weil Ihr immer nur den Code des Makrorekorders blind kopiert, ohne den Code zu verstehen face-wink
'Alte Tabellenblätter löschen  
    Dim ws As Worksheet, strSuchname As String
    Application.DisplayAlerts = False
    strSuchname = "DiagrammNNZ_" & Tabelle4.ComboBox1.Text  
    For Each ws In Worksheets
        If Left(ws.Name, Len(strSuchname)) = strSuchname Then
            ws.Delete
        End If
    Next
    Application.DisplayAlerts = True

'Neues Tabellenblatt erzeugen (DiagrammNNZ - <Auswahl von Kombobox>)  

    Dim strDiagrammanme  ' Names des Diagrammblattes  
    Dim chartNew As Chart
    strDiagrammname = "DiagrammNNZ_" & Tabelle4.ComboBox1.Text  
    
    Set chartNew = Application.Charts.Add
    With chartNew
        .ChartType = xlColumnClustered
        .Name = "DiagrammNNZ_" & Tabelle4.ComboBox1.Text  
        .SeriesCollection.NewSeries
        .SetSourceData Source:=Tabelle4.Range(Tabelle4.Cells(i, j), Tabelle4.Cells(i, 5)) ' Range auf horizontal ändern  
        .SeriesCollection(1).XValues = Tabelle4.Range(Tabelle4.Cells(k, l), Tabelle4.Cells(k, 5))
    End With
    With chartNew.Axes(xlValue)
        .MinimumScale = 0
        .MaximumScale = ymax
    End With
Member: Anna2701
Anna2701 Dec 15, 2014 at 13:34:49 (UTC)
Goto Top
Da hast du leider recht! face-sad
Es entsteht immer noch ein Fehler. Immer noch Zeile 21. Fehler:
Laufzeitfehler '1004':

Kann einem Blatt nicht den gleichen Namen geben wie einem anderen Blatt, einer Objektbibliothek oder einer Arbeitsmappe, auf der Visual Basic Bezug nimmt.
Member: colinardo
colinardo Dec 15, 2014 updated at 13:38:36 (UTC)
Goto Top
Zitat von @Anna2701:

Da hast du leider recht! face-sad
Es entsteht immer noch ein Fehler. Immer noch Zeile 21. Fehler:
Laufzeitfehler '1004':
hier läuft es einwandfrei, du musst uns hier also noch irgendetwas verschweigen !
Kann einem Blatt nicht den gleichen Namen geben wie einem anderen Blatt, einer Objektbibliothek oder einer Arbeitsmappe, auf der Visual Basic Bezug nimmt.
Jedes Blatt muss einen eindeutigen Namen haben, zwei Mappen mit gleichem Namen geht nicht.
Member: Anna2701
Anna2701 Dec 17, 2014 at 09:04:35 (UTC)
Goto Top
Es funktioniert mittlerweile. Ich habe aber ein neues Problem.
Ich erstelle mit meinem Code ein neues Tabellenblatt, wo das Diagramm drauf erzeugt wird. Ich möchte aber bis zu 8 Diagramme auf diesem Tabellenblatt anzeigen lassen.

DiagrName = "DiagrammNutzungsNebenzeit"  

i = 40
j = 1
k = 38
l = 2

Cells(13, 1).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.Location xlLocationAsNewSheet, "DiagrammNutzungsNebenzeit"  
ActiveChart.SetSourceData Source:=Range(Tabelle4.Cells(i, j), Tabelle4.Cells(i, 5))
ActiveChart.SeriesCollection(1).XValues = Tabelle4.Range(Tabelle4.Cells(k, l), Tabelle4.Cells(k, 5))


ActiveChart.CopyPicture (xlScreen)
Sheets("DiagrammNutzungsNebenzeit").Paste

Kann ich mit dem Code arbeiten oder muss ich den komplett neu schreiben?
Member: colinardo
Solution colinardo Dec 17, 2014 updated at 09:49:47 (UTC)
Goto Top
Ich habe aber ein neues Problem.
neues Problem > neuer Thread !
Sonst würde das Forum hier zu einem heillosen Durcheinander mutieren, merci.

Grüße Uwe

Und den Beitrag dann bitte noch als gelöst markieren. Danke.
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments