noch eine Wenn Frage

[wavemaster]

Hab noch eine Frage

gibt es eine Möglichkeit wenn man ein Tabellenblatt kopiert das man dies gleich 25 mal kopieren kann in einem Durchgang

Danke

[Peter]

Hallo,

mit VBA geht das.

Probier mal diesen Code:

Code:

Public Sub Tabellenblatt_kopieren()
'http://www.office-loesung.de/fpost1920190.php#1920190
Dim i As Long
For i = 1 To 25
    Sheets("Tabelle1").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Tabelle1 " & i
Next
End Sub

Der Code gehört in ein allgemeines Modul der Datei:

- Öffne mit Alt+F11 den VBA-Editor
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- Tastenkombination Alt+E und dann M drücken
- in der rechten Fensterhälfte ist jetzt ein leeres Modul eingefügt worden
- in dieses Modul muss der Code eingefügt werden
- im Projektexplorer wird das Modul unter der Datei angezeigt
- speichen und den VBA-Editor mit Alt+F4 schliessen
- das Makro bzw. die Funktion steht dir jetzt in dieser Datei zur Verfügung und kann mit Alt-F8 aufgerufen werden

[wavemaster]

Hallo Peter habe es nach deiner Anleitung ausgeführt, es kommt jedoch immer die Meldung "index ausserhalb des gültigen Bereich"

Was mache Ich falsch

[schauan]

Hallöchen,

bin zwar nicht der Peter - aber trotzdem mal ein Hinweis von mir. Wahrscheinlich gibt es in Deiner Excel-Mappe kein Blatt mit dem Namen "Tabelle1". Entweder, Du erzeugst eins oder Du benennst ein vorhandennes um oder Du ersetzt den Namen im VBA - code durch einen vorhandenen.

[wavemaster]

Welche Formel kann man anwenden
wenn F30=""
dann =""
sonst "hier gebe Ich dann ein Datum in die Zelle ein"

wie bezeichnet man ein Datum in wenn dann sonst.

kein Plan

[schauan]

Hallöchen,

ein
sonst "hier gebe Ich dann ein Datum in die Zelle ein"
kannst Du nicht als Formel verarbeiten. Wenn Du was eingibst, ist die Formel dann ja auch weg.
Wenn Du das aber willst, dann schreib einfach den Text in die Formel und ich hoffe, dass der, der das liest, dann auch ein Datum eingibt.


Ein Datum kannst Du auf verschiedneem Weg erzeugen, z.B.
=WENN(F30="";"";HEUTE())
=WENN(F30="";"";"12.10.2014")
=WENN(F30="";"";DATUM(2014;10;12))
=WENN(F30="";"";A1) --> in A1 steht hoffentlich ein Datum
...

[wavemaster]

Hallöchen,

bin zwar nicht der Peter - aber trotzdem mal ein Hinweis von mir. Wahrscheinlich gibt es in Deiner Excel-Mappe kein Blatt mit dem Namen "Tabelle1". Entweder, Du erzeugst eins oder Du benennst ein vorhandennes um oder Du ersetzt den Namen im VBA - code durch einen vorhandenen.

Hallöchen zurück und Danke das hat geklappt.

Kann man das Tabellenblatt auch mit der VBA Sache auch kopieren und vorher festlegen von NT12 -....

[schauan]

Hallo,

ja, klar Im Prinzip so:

Code:

For i = 12 To 37
    Sheets("Tabelle1").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "NT" & i
Next

Noch ein allgemeiner Hinweis. Wenn es ein Blatt mit dem Namen bereits gibt, kommt auch ein Fehler. In dem Fall müsste man festlegen, was zu tun ist. Man könnte dann mit dem nächsten Namen weitermachen oder das Blatt löschen und neu erzeugen oder ...

[wavemaster]

Hallöchen,

ein
sonst "hier gebe Ich dann ein Datum in die Zelle ein"
kannst Du nicht als Formel verarbeiten. Wenn Du was eingibst, ist die Formel dann ja auch weg.
Wenn Du das aber willst, dann schreib einfach den Text in die Formel und ich hoffe, dass der, der das liest, dann auch ein Datum eingibt.


Ein Datum kannst Du auf verschiedneem Weg erzeugen, z.B.
=WENN(F30="";"";HEUTE())
=WENN(F30="";"";"12.10.2014")
=WENN(F30="";"";DATUM(2014;10;12))
=WENN(F30="";"";A1) --> in A1 steht hoffentlich ein Datum
...

Hat funktioniert Danke