Thema Datum  Von Nutzer Rating
Antwort
03.12.2019 16:18:17 Chris
*****
NotSolved
03.12.2019 17:18:09 Mase
NotSolved
03.12.2019 18:18:50 Gast18986
NotSolved
Blau Automatisch die Tabellenblätter erstellen
 03.12.2019 19:34:08 Mase
NotSolved
03.12.2019 21:31:33 Chris
NotSolved
03.12.2019 17:19:15 Gast72650
NotSolved
03.12.2019 18:20:26 Gast30572
NotSolved
06.12.2019 21:17:04 Chris
*****
Solved

Ansicht des Beitrags:
Von:
Mase		 Datum:
03.12.2019 19:34:08		 Views:
804		 Rating:
     
Antwort:
  Ja
Thema:
Automatisch die Tabellenblätter erstellen

Hm, habe ich zwar nicht gefragt, aber versuchs mal so ;)

 

           'VARIABLEN FUER WHILE SCHLEIFE FUER BENENNUNG DER TB
            Dim wkb As Workbook: Set wks = ThisWorkbook
            Dim wks As Worksheet

            Dim anzahlTB As Integer
            anzahlTB = 0
     
            Dim FGS As String
            FGS = "FGS "
             
            Dim zeileDatum As Integer
            zeileDatum = 1
             
            Dim jahrSpalte As Integer
            jahrSpalte = letzteSpalte - 1
             
            Dim monatSpalte As Integer
            monatSpalte = letzteSpalte - 2
             
            Dim tagSpalte As Integer
            tagSpalte = letzteSpalte - 3
         
        'nimmt die anzahl der beschriebenen a-zeilen und erstellt so viele blaetter a zeilen sind
        While anzahlTB <> letzteZeile
 
        Dim Gutschriftsnummer As String
        Gutschriftsnummer = InputBox("FGS eingeben")
 
        Dim Tag As String
        Tag = Cells(zeileDatum, 5).Value
         
        Dim Monat As String
        Monat = Cells(zeileDatum, 6).Value
          
        Dim Jahr As String
        Jahr = Cells(zeileDatum, 7).Value
 
        Dim DatumDatei As String
        DatumDatei = Tag & "." & Monat & "." & Jahr
 
        With wkb
            Set wks = .Worksheets.Add(after:=.Worksheets(.Worksheets.Count))
            .Name = FGS & " " & Gutschriftsnummer & "_" & Tag & "." & Monat & "." & Jahr
            Set wks = Nothing
        End With
    
        zeileDatum = zeileDatum + 1
        anzahlTB = anzahlTB + 1
        Wend

 

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
03.12.2019 16:18:17 Chris
*****
NotSolved
03.12.2019 17:18:09 Mase
NotSolved
03.12.2019 18:18:50 Gast18986
NotSolved
Blau Automatisch die Tabellenblätter erstellen
 03.12.2019 19:34:08 Mase
NotSolved
03.12.2019 21:31:33 Chris
NotSolved
03.12.2019 17:19:15 Gast72650
NotSolved
03.12.2019 18:20:26 Gast30572
NotSolved
06.12.2019 21:17:04 Chris
*****
Solved