1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel Makro Eingabetabelle - Werte zurücksetzen

Discussion in 'Office-Programme' started by nomatter, Jul 8, 2008.

Thread Status:
Not open for further replies.
  1. nomatter

    nomatter Byte

    Hallo!

    ich habe folgenden Code:

    Sub Schaltfläche1_BeiKlick()
    With Worksheets("Vorlage")
    .Visible = True
    .Copy after:=Worksheets(Worksheets.Count)
    .Visible = False
    End With
    With ActiveSheet
    .Name = "Monat" & Worksheets.Count

    Wie kann ich hier einstellen, dass der Name immer fortlaufend im 3-monats Rythmus benannt wird (März 06, Juni 06, September 07, Dezember 07, März 08,...)??

    .Range("C5") = Worksheets("Eingabe").Range("C5")
    .Range("C8") = Worksheets("Eingabe").Range("B5")
    .Range("A2") = "Stand: " & Worksheets("Eingabe").Range("B5")
    .Range("E8") = Worksheets("Eingabe").Range("C5")
    .Range("C11") = Worksheets("Eingabe").Range("B8")
    End With
    Application.ScreenUpdating = True
    End Sub


    Wie kann ich einstellen, dass mir danach (nach Übernahme in das neue Blatt) die Werte der Felder in dem Arbeitsblatt "Eingabe" auf vordefinierte "default" Werte (0 bzw. dd.mm.yyyy) zurückgestellt werden?

    Vielen Dank für eure Hilfe!
     
    Last edited: Jul 8, 2008
    nomatter, Jul 8, 2008
    #1
  2. nomatter

    nomatter Byte

    Ok, Teil B hat sich erledigt, hab mittlerweile selber rausgefunden, wie ich die Werte zurücksetze.

    Bei der Benennung der neu generierten Arbeitsblätter wäre ich über jede Hilfe dankbar!
     
    nomatter, Jul 8, 2008
    #2
  3. nomatter

    nomatter Byte

    gut, auch Teil A ist hinfällig,
    bin mit ein bisschen probieren selber draufgekommen.

    trial and error hat halt doch was ;-)
     
    nomatter, Jul 8, 2008
    #3
Thread Status:
Not open for further replies.

Share This Page