Thema Datum  Von Nutzer Rating
Antwort
06.07.2017 21:29:59 laie
NotSolved
Blau Autom. Tabellenblatt nach Vorlage und Namen erzeugen
 06.07.2017 23:36:34 Werner
Solved
07.07.2017 10:59:05 Gast49189
NotSolved
07.07.2017 11:02:11 Gast27547
NotSolved
07.07.2017 11:04:18 Gast26057
NotSolved
07.07.2017 17:32:26 Werner
NotSolved
07.07.2017 21:50:29 Gast82946
NotSolved
07.07.2017 21:58:28 Werner
Solved
07.07.2017 22:16:41 Gast4037
Solved
07.07.2017 22:48:19 Werner
Solved
18.07.2017 20:27:36 Gast95985
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
06.07.2017 23:36:34		 Views:
728		 Rating:
     
Antwort:
 Nein
Thema:
Autom. Tabellenblatt nach Vorlage und Namen erzeugen

Hallo,

ungetestet:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
    If Selection.Count > 1 Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
        MsgBox "In diesen Bereich dürefen sie nur eine Zelle wählen!"
    Exit Sub
    End If
If Intersect(Target, Range("A2:A6")) Is Nothing Then Exit Sub
    
            For a = 1 To ThisWorkbook.Sheets.Count
             If Sheets(a).Name = Target.Offset(0, 1).Text Then
              MsgBox "Tabelle mit den Namen: " & Target.Offset(0, 1) & " ist schon vorhanden"
              Application.EnableEvents = False
               Target.Offset(0, 1) = ""
              Application.EnableEvents = True
              Exit Sub
              End If
            Next a
            Application.EnableEvents = False
        If Target.Offset(0, 1).Text > "" Then
            Sheets("Vorlage").Copy Before:=Sheets(ThisWorkbook.Sheets.Count)
            ActiveSheet.Name = Target.Offset(0, 1)
            Target.Offset(0, 1) = ActiveSheet.Name
        ElseIf Target.Offset(0, 1).Text = "" Then
        On Error Resume Next 'Sicherheit wegen EnableEvents
            Application.DisplayAlerts = False
             Sheets(Target.Offset(0, 1).Text).Delete
             Target.Offset(0, 1) = ""
            Application.DisplayAlerts = True
        End If
        Application.EnableEvents = True
        
End Sub

 

Gruß Werner

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
06.07.2017 21:29:59 laie
NotSolved
Blau Autom. Tabellenblatt nach Vorlage und Namen erzeugen
 06.07.2017 23:36:34 Werner
Solved
07.07.2017 10:59:05 Gast49189
NotSolved
07.07.2017 11:02:11 Gast27547
NotSolved
07.07.2017 11:04:18 Gast26057
NotSolved
07.07.2017 17:32:26 Werner
NotSolved
07.07.2017 21:50:29 Gast82946
NotSolved
07.07.2017 21:58:28 Werner
Solved
07.07.2017 22:16:41 Gast4037
Solved
07.07.2017 22:48:19 Werner
Solved
18.07.2017 20:27:36 Gast95985
NotSolved