VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
doppelte tabellennamen zuweisung führt zu fehler	11.02.2016 03:18:20	sammy
z.B. so	11.02.2016 17:04:27	Gast29653
z.B. so	11.02.2016 18:49:01	sammy
Datei schicken	11.02.2016 19:04:57	sammy
Noch was auf Lager?	11.02.2016 19:11:51	Gast68058
Noch was auf Lager?	11.02.2016 19:18:23	sammy
funktioniert aber nur für den ersten Aufruf	11.02.2016 19:43:36	sammy
funktioniert aber nur für den ersten Aufruf	12.02.2016 04:51:55	sammy
Zusatz Funktion: aus leeren Zellen KEIN neues sheet erstellen	21.02.2016 17:53:30	sammy

Ansicht des Beitrags:

Von:
Gast29653

Datum:
11.02.2016 17:04:27

Views:
805

Rating:

Antwort:

Thema:
z.B. so

Sub TestMakro5()
Dim Zelle As Range, Wsh As Excel.Worksheet, flag As Boolean
   
On Error GoTo errh

Sheets("Abdeckung").Select
   'aktive Zelle = Range.Object
   Set Zelle = ActiveCell
   'prüfe auf vorhanden
   For Each Wsh In ThisWorkbook.Sheets
      '"Test ID" & Zelle.Formula = String = Tabellenname
      If Wsh.Name = "Test ID" & Zelle.Formula Then
         'Treffer = Worksheet.Object = zugewiesen
         flag = True
         Exit For
      End If
   Next Wsh
   
   Application.ScreenUpdating = False
   
   If Not flag = True Then
      'kein Treffer
      Sheets("Muster").Copy After:=Sheets(Sheets.Count)
      
      'kopierte Tabelle "Muster" zu Worksheet.Object
      Set Wsh = ThisWorkbook.Sheets(Sheets.Count)
      
      'geht auch so
      'Set Wsh = ThisWorkbook.Sheets("Muster (2)")
      
      
      'Worksheet.Object - Eigenschaften einrichten
      With Wsh
         .Name = "Test ID" & Zelle.Formula
         .Visible = xlSheetVisible
         .Range("B2").Font.Bold = True
      End With
      
      'Zelle = Range.Object in die Zwischenablage
      Zelle.Copy
      
      'Worksheet.Object - einfügen
      Wsh.Range("B2").PasteSpecial xlPasteValues
      Application.CutCopyMode = False
      
   End If
   
   'Worksheet.Object zeigen
   Wsh.Activate

errh:
Application.ScreenUpdating = True
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
doppelte tabellennamen zuweisung führt zu fehler	11.02.2016 03:18:20	sammy
z.B. so	11.02.2016 17:04:27	Gast29653
z.B. so	11.02.2016 18:49:01	sammy
Datei schicken	11.02.2016 19:04:57	sammy
Noch was auf Lager?	11.02.2016 19:11:51	Gast68058
Noch was auf Lager?	11.02.2016 19:18:23	sammy
funktioniert aber nur für den ersten Aufruf	11.02.2016 19:43:36	sammy
funktioniert aber nur für den ersten Aufruf	12.02.2016 04:51:55	sammy
Zusatz Funktion: aus leeren Zellen KEIN neues sheet erstellen	21.02.2016 17:53:30	sammy