Thema Datum  Von Nutzer Rating
Antwort
27.11.2023 13:00:09 Tylo
NotSolved
Blau überprüfen ob Tabelle vorhanden
 27.11.2023 16:59:12 ralf_b
Solved
27.11.2023 20:12:48 Gast78119
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
27.11.2023 16:59:12		 Views:
179		 Rating:
     
Antwort:
 Nein
Thema:
überprüfen ob Tabelle vorhanden

hi, ich hab dir mal eine Function geschrieben die prüft ob ein Sheet mit dem übergebenen Namen existiert und eine entsprechende Rückgabe liefert. Wie man sie anwendet steht in der etwas aufgemotzten Sub.

Sub Tabelle_075_dbl()
    '
    ' erstellt Tabelle mit 0,75 dbl
    '
    Dim sh As Worksheet                       '

    If Not shExists("0,75 dbl") Then
        Worksheets("Vorlage").Copy Before:=Worksheets(1)
        Set sh = Worksheets(1)
        sh.Name = "0,75 dbl"
    Else
        Set sh = Sheets("0,75 dbl")
    End If
    
    sh.Range("A1").Value = "0,75_dbl_Lapp"
    With Sheets("Drahtsatz kopieren")
        .Range("$A$2:$M$200").AutoFilter Field:=4, Criteria1:="DBU"
        .Range("$A$2:$M$200").AutoFilter Field:=5, Criteria1:="0,75"
        .Range("F:F").Copy sh.Range("C8")
        .Range("I:I").Copy sh.Range("M8")
        .Range("J:J").Copy sh.Range("S8")
        
        sh.Range("8:8,9:9").Delete
        sh.Range("A1").Select
        If .AutoFilterMode Then If .FilterMode Then .ShowAllData
        .Select
        .Range("A1").Select
     End With
        
    MsgBox "Tabelle 0,75 dbl wurde erstellt", 64
        
End Sub


Function shExists(sName$) As Boolean
    Dim sh     As Worksheet
    On Local Error Resume Next
    Set sh = Worksheets(sName)
    If Err = 0 Then
        shExists = True: Set sh = Nothing: Exit Function
    Else
        Err.Clear
        shExists = False
    End If
    
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.11.2023 13:00:09 Tylo
NotSolved
Blau überprüfen ob Tabelle vorhanden
 27.11.2023 16:59:12 ralf_b
Solved
27.11.2023 20:12:48 Gast78119
NotSolved