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

Ansicht des Beitrags:
Von:
Tylo
Datum:
27.11.2023 13:00:09
Views:
560
Rating: Antwort:
  Ja
Thema:
überprüfen ob Tabelle vorhanden

Hi zusammen,

ich hab mir was erstellt das eine Vorlage kopiert, diese bennent und von einer weitern Vorlage Daten filtert und dies einfügt. Das ganze hat den Hintergrund für einen Kabeldrucker der ein gewisses Format benötogt entsrpechedn aufgeteilt.

Was ich gerne noch häte das überprüft wird ob eine Tabelle mit dem Namen schon besteht bevor die Tabelle erstellt wird. Insgesamt gibt es 37, wo sich die Benneung sowie die Suchkriterien unterscheiden.

Verwendet wird Excel 2016, meine Kentnisse sind sehr dünn hab mir das zusammen gelsen und 2 Tage rumprobiert bis es funktioniert hat

 

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

 


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
Rot überprüfen ob Tabelle vorhanden
27.11.2023 13:00:09 Tylo
NotSolved
27.11.2023 16:59:12 ralf_b
Solved
27.11.2023 20:12:48 Gast78119
NotSolved