Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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


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

301 Forumthreads zu ähnlichen Themen

Pivot-Tabellen mit gefilterten Werten möglich?
Andreas

Hallo Forum,
ich habe mal eine Frage bezüglich Pivot-Tabellen. Kann eine solche Tabelle schon vorher gefilterte Werte auswerten, ohne dass die herausgefilterten Zellen beachtet werden?
MFG Andreas
10.11.2008 11:29:00
Thread-ID: 1023155
5 Beiträge
Anzeige
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
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
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
Anzeige

Links zu Excel-Dialogen

TextBox InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
6
2
1
6
4
2
5
3
5
2
6
4
2
4
11
1
4
1
4
4
2
7
3