Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

neues Tabellenblatt über Makro mit Textbox

Forumthread: neues Tabellenblatt über Makro mit Textbox

neues Tabellenblatt über Makro mit Textbox
19.04.2007 14:40:00
Chris
Hi liebe Excel Profis,
Habe da ein mehr oder weniger kleines Problem, welches ich nicht lösen kann!
Würde gerne mittels einer Schaltfläche ("Neuen Kurs anlegen") eine Textbox erzeugen, in der ein Datum und die Teilnehmeranzahl eingetragen wird, und dann bei einem Klick auf "ok" ein neues Tabellenblatt angelegt und mit dem Datum als Namen versehen wird! Zudem soll jedes eingefügte Tabellenblatt von der Grundform des schon vorhandenen sein ("x" in angefügtem Testsheet)!
Hoffe, das war einigermaßen verständlich erklärt und es kann mir einer helfen....
Vielen lieben Dank schon einmal

Die Datei https://www.herber.de/bbs/user/41879.xls wurde aus Datenschutzgründen gelöscht


Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kann mir keiner helfen :-( ?
19.04.2007 23:27:00
Chris
Wäre nett, wenn sich jemand meinem Problemchen widmen könnte! Bitte.........

AW: neues Tabellenblatt über Makro mit Textbox
20.04.2007 02:48:00
Daniel
Hallo
probiers mal damit:

Sub Makro1()
Dim a
Sheets("x").Copy After:=ActiveWorkbook.Sheets(1)
ActiveSheet.Name = Left(InputBox("Datum"), 31)
Do
a = InputBox("Teilnehmerzahl", Default:=26)
If a = "" Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Sheets("All Events").Select
Exit Sub
End If
Loop While Not IsNumeric(a) Or a  26
Rows(3).Resize(a - 26).Insert
End Select
Sheets("All Events").Select
End Sub


Gruß, Daniel

Anzeige
AW: neues Tabellenblatt über Makro mit Textbox
20.04.2007 12:08:14
Chris
Vielen Dank! Klappt ja schon mal sehr gut! Kann man das noch irgendwie so abändern, dass das Datum und die Teilnehmerzahl gleich auch in all events eingetragen wird und bei jeder Neuanlegung unter dem vorigen Kurs steht? Wär super....

AW: neues Tabellenblatt über Makro mit Textbox
20.04.2007 21:56:00
Daniel
Hallo

Sub Makro1()
Dim a
Dim Name As String
Sheets("x").Copy after:=ActiveWorkbook.Sheets(1)
Name = Left(InputBox("Datum"), 31)
ActiveSheet.Name = Name
Do
a = InputBox("Teilnehmerzahl", Default:=26)
If a = "" Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Sheets("All Events").Select
Exit Sub
End If
Loop While Not IsNumeric(a) Or a  26
Rows(3).Resize(a - 26).Insert
End Select
Sheets("All Events").Select
With Columns(1).Find(what:="", after:=Range("A1"), lookat:=xlWhole)
.Value = Name
.Offset(0, 1).Value = a
End With
End Sub


Gruß, Daniel

Anzeige
Danke Daniel...
21.04.2007 11:24:00
Chris
Oh wie gern würd ich so etwas auch können :-)

AW: Danke Daniel...
21.04.2007 11:38:48
Daniel
Hi,
das kommt mit der Zeit
Gruß Daniel
;

Forumthreads zu verwandten Themen

Pivot Tabellen Elemente anzeigen
thomas

Hallo,
hat einer von euch ein Beispiel für die Funktion "Ausgeblendete Elemente in Gruppierungsfunktionen anzeigen" in Pivottabellen. Ich schaffe es nicht das Icon zu aktivieren bzw. die Funktion zu nutzen
Ich krieg es auch nicht hin die Auswirkungen der Option "Elemente ohne Daten anze...
02.12.2008 14:46:51
Thread-ID: 1029521
3 Beiträge
Pivot Tabelle mit Selektion
René

Hallo alle zusammen,
ich habe ein großes Problem und zwar muss ich einen Vorgang bei uns in der Firma erleichtern, dieser bezieht sich auf die Personaldaten,welche in excel hochgeladen werden sollen und von dort aus in eine bestimmte Reihenfolge gebracht werden sollen zur weiteren bearbeitu...
05.03.2009 11:01:37
Thread-ID: 1056713
7 Beiträge
Gesamtergebnis einer Pivottabelle als %-Wert
Dirk

Hallo Forum,
ich habe eine Pivottabelle, in der ich eine automatische Spalte eingefügt habe, die ein Gesamtergebnis der entsprechenden Zeile liefert (Tabellenoptionen - Gesamtergebnis für Zeilen). Nun möchte ich dieses Ergebnis jedoch nicht als jeweilige Zeilensumme sondern als %-Anteil an...
12.03.2009 11:59:54
Thread-ID: 1059437
3 Beiträge
Anzeige
Pivot: Text- statt Zahlenformat nach Import
Heike

Guten Tag,
nach Import von Daten aus Access steht ein Feld bei mir im Text- statt Zahlenformat und
ist dadurch auch nicht richtig sortiert. Wie kann ich dies beheben? Ich habe versucht,
bereits beim Laden der externen Daten gleich zu sortieren, hat auch nichts gebracht.
Verwend...
27.03.2009 13:30:28
Thread-ID: 1064605
2 Beiträge
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Pivot Tabelle mit Formatierungen
Roland

Hallo zusammen,
ich habe in einer Pivot Tabelle in einer Spalte vereinzelte Zellen formatiert ( Schrift FETT, Hintergrundfarbe)
Wenn ich nun in einer andern Zelle in der Spalte links davon den Autofilter benutze, werden diese Formatierungen in besagter Zelle wieder verworfen.
Kann...
29.06.2009 09:49:30
Thread-ID: 1084655
5 Beiträge
Anzeige
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Pivot Tabelle auswerten mit Problemen
DieterL

Hallo Excelfreunde,
Ich habe eine ganz normale Pivot Tabelle und möchte mir das Ergebnis aus der rechten unteren Zelle zusätzlich in einer anderen Zelle oberhalb anzeigen lassen. Aber egal was ich mache, nach dem verlinken erscheint immer eine null. Auch die Daten aus dem Pivot Datenbereich...
03.09.2009 11:55:32
Thread-ID: 1100292
6 Beiträge
Text als Wert
Peter

Hallo,
Aus einer Textdatei habe ich Daten importiert.
Dabei stehen in den Spalten E und F Datumsangaben, die aber als Text erkannt werden. Wie kann ich sie per Makro auf einen Schlag in Datum umwandeln?
Manuell über Inhalte einfügen-multiplizieren mit 1 ist es kein Problem, wenn ich...
30.10.2009 13:48:53
Thread-ID: 1113353
4 Beiträge
MSG-TExt für einen bestimmten Zeitraum anzeigen
Wolle

Hallo Forumgemeinde,
nachdem Ihr mir so klasse mit der MSG Box und dem Text schon geholfen habt, hoffe ich auf weitere Hilfe.
Ich möchte gerne den Text der MSG-Box nicht nur für eine Tag anzeigen lassen, sonder für einen Zeitraum ... sagen wir mal 5 Tage.
Desweiteren frage ich mich...
19.11.2009 08:29:55
Thread-ID: 1118510
6 Beiträge
Anzeige
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Anzeige
Pivot Tabelle mit Daten neue Spalte erstellen
Carsten

Ich brauche mal Eure Hilfe.
Ich habe eine Pivot Tabelle die immerwieder aktualisiert und durch Selektionen geändert wird.
Nun ist es erforderlich eine Spalte anzufügen die die erhaltenen Daten dividiert und sich nach einer anderen Selektion automatich den neuen Daten anpasst.
Ich br...
29.12.2009 12:21:11
Thread-ID: 1126181
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige