Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe das mit der „TextBox“ ausprobiert, hat gut geklappt. Danke an allen, die sich Gedanken gemacht haben. Jetzt versuche ich seit gestern, eine vorgefertigte Tabelle beim Speichern zu Kopieren und beim nächsten ööfnen diese als Tab.2 usw. zu aktivieren. Also jedes Mal nach dem schließen eine kopierte wieder öffnen. Dabei sollen bestimmte Zellen(z.B. A14;b15; c16)wieder auf 0 gesetzt werden, damit ich andere Werte eintragen kann. Zugleich soll eine Abfrage stattfinden, ob ein Name in einer bestimmten Zelle eingetragen ist(z.B.in B2.)Ist der Name eingetr. dann Kopieren. Versucht habe ich es mit. Private Sub Workbook_Open ?????ResumeNext This Workbook.Worksheets(ActivateSheet.Copy)Activate Habe mir wohl zuviel vorgenommen. Gruss Thomas

Nabend Thomas,

entweder liegt es an der Uhrzeit oder ich weiß auch nicht, aber ich verstehe Deine Fragestellung nicht so ganz. Was soll wann kopiert werden und wann geöffnet und aktiviert und und und...?

Erkläre doch bitte etwas genauer was Du vorhast. Am besten auch in der Reihenfolge, wie etwas erfolgen soll.


MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

Hi corros,
ich habe mir eine Tabelle angelegt und die hat in Zelle A10 einen Namen.Nach dem speichern oder beim neuen öffnen soll eine Tab.mit dem gleichen layout geöffnet werden, aber nur falls in A10 ein name eingetragen ist,sonst die alte Tabelle. Ferner sollen einige Einträge in der neuen Tab.beim öffnen gelöscht werden, damit ich an deren Stelle wieder andere Einträge machen kann.z.B. A14.B14.
Es geht hier um eine Liste von Fussballfreunden, bei denen ich Beiträge usw.erfasse.Um nicht jedesmal,wenn ein Neuer dazukommt die Tabelle mit Rechtsklick kopieren zu müssen und die Zellen löschen muß, kam ich auf diese Idee. Doch garnicht so einfach. Ich hoffe ich habs jetzt verständlicher beschrieben.

Gruss Thomas

Hi Thomas,

hier mal ein Makro, welches von der Ausgangstabelle eine Kopie erstellt und die Inhalte der Zellen A14, B14, B15, C16 löscht, wenn in der Ausgangstabelle in Zelle A10 ein etwas eingetragen wurde.

Sub Kopie_Ausgangstabelle()
If Worksheets("Tabelle1").Range("A10") > "" Then
    Sheets("Tabelle1").Copy After:=Sheets(1)
   Range("A14, B14:B15, C16").ClearContents
End If

End Sub

Da ich Deine Anforderungen immer noch nicht so ganz verstehe, habe ich das Makro ganz allgemein gehalten. Wenn Du es etwas genauer benötigst, wäre es sicher von Vorteil, wenn Du mir Deine Datei mal schicken könntest. Alles, was mich in der Datei nichts angeht, kann gelöscht werden. Du musst mir nur kenntlich machen, welche Zellinhalte gelöscht werden sollen.
E-Mail siehe oben.

Ich hoffe, ich konnte Dir dennoch weiterhelfen.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

• Tabelle durchsuchen nach bestimmten Werten!!!
• Tabelleninhalte einer excel-Tabelle kopieren und in eine neue Tabelle einfügen
• Tabelle kopieren (Tabelleninhalt)
• Benutzerdefinierte Formatierung von Zelle leer
• Tabelle ohne ausgeblendeten Text kopieren in andere Tabelle