Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

noch eine Wenn Frage
#21
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
Antworten Top
#22
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
Gruß
Peter
Antworten Top
#23
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
Antworten Top
#24
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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • wavemaster
Antworten Top
#25
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
Antworten Top
#26
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
...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#27
(12.10.2014, 13:50)schauan schrieb: 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 -....
Antworten Top
#28
Hallo,

ja, klar Wink 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 ...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#29
(12.10.2014, 14:06)schauan schrieb: 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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste