Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Über Abfrage eine Tabelle erstellen

Über Abfrage eine Tabelle erstellen
23.01.2007 09:40:01
kliemi
Hallo Zusammen
Habe eine knifflige Aufgabe zu bewältigen! Über einen Button in einem Tabellensheet soll eine Tabelle in einem neuen Tabellensheet aufgebaut werden. Jedoch soll dies mit Hilfe einer Abfrage geschehen. Es soll eine Box aufpoppen die abfragt" wie viele Zeilen und Spalten die Tabelle haben soll. Wenn dann z.B 5 und 3 eingegeben wird, soll die Tabelle aus fünf vormatierten Zeilen und 3 Spalten aufgebaut werden.
Ich hoffe jemand erbarmt sich.
Danke
kliemi

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Über Abfrage eine Tabelle erstellen
23.01.2007 10:19:13
EtoPHG
Hallo Kliemi,
Ist wohl ne Unterrichtsaufgabe oder was?

Sub Versiv()
Const strMakroName = "Neues Blatt / Bereich kopieren"
Dim sngAnzZeilen, sngAnzSpalten As Single
Dim strNameNewSheet As String
strNameNewSheet = InputBox("Name des neuen Tabellenblatts:", strMakroName, "Tabelle" & ActiveWorkbook.Sheets.Count + 1)
If strNameNewSheet = "" Then
MsgBox "Kein oder ungültiger Blattname!", vbExclamation + vbOKOnly, strMakroName
Exit Sub
Else
sngAnzZeilen = CSng(InputBox("Anzahl Zeilen zu kopieren:", strMakroName, "1"))
sngAnzSpalten = CSng(InputBox("Anzahl Spalten zu kopieren:", strMakroName, "1"))
If sngAnzZeilen < 1 Or sngAnzSpalten < 1 Then
MsgBox "Falsch Anzahl Zeilen und/oder Spalten!", vbExclamation + vbOKOnly, strMakroName
Exit Sub
Else
ActiveWorkbook.Sheets.Add after:=ActiveWorkbook.Worksheets(ActiveSheet.Index)
ActiveSheet.Name = strNameNewSheet
ActiveWorkbook.Sheets(ActiveSheet.Index - 1).Range(ActiveWorkbook.Sheets(ActiveSheet.Index - 1).Cells(1, 1), ActiveWorkbook.Sheets(ActiveSheet.Index - 1).Cells(sngAnzZeilen, sngAnzSpalten)).Copy _
Destination:=ActiveSheet.Cells(1, 1)
End If
End If
End Sub

Gruss Hansueli
Anzeige
AW: Über Abfrage eine Tabelle erstellen
23.01.2007 12:40:07
kliemi
Hi Hansueli
Ich brauche die ganze Sache sehr dringend für die Arbeit. Habe aber gerade erfahren, dass es noch ein bisschen komplexer wird. Ich schreibe Heute Nachmittag nochmal genauere Details. Schon mal recht herzlichen Dank für deine Hilfe. Ist echt wichtig. Wäre schön, wenn Du am Nachmittag nochmal schaust.
DANKE
Bye André
AW: Über Abfrage eine Tabelle erstellen
23.01.2007 13:59:25
kliemi
Hi ich nochmal,
Der Ansatz ist der richtige. Aber ich möchte keine Spalten und Zeilen kopieren sondern eine neue Tabelle aufbauen. Die Abfrage soll sich darauf beziehen, wieviele Spalten und Zeilen die zu entwerfende Tabelle hat. Wenn du noch eine Idee hast, wäre ich sehr dankbar.
mfg
kliemi
Anzeige
AW: Über Abfrage eine Tabelle erstellen
23.01.2007 14:16:39
EtoPHG
Hallo Kliemi,
Also eine Exceltabelle hat immer (zumindest bis und mit Office 2003) 256 Spalten und 65536 Zeilen. Da kannst Du machen was Du willst. Du könntest höchstens die nicht gebrauchten ausblenden!
Gruss Hansueli
AW: Über Abfrage eine Tabelle erstellen
23.01.2007 16:20:48
kliemi
Hast Natürlich Recht
Meinte Natürlich, dass in einem neuen Tabellenblatt, die Angegebene Zahl an Spalten und Zeilen formatiert sind. Bsp mit Rahmen versehen, bestimmte Formel in h5....
Wenn du dazu noch einen Ansatz hättest, wäre super.
mfg
André
AW: Über Abfrage eine Tabelle erstellen
23.01.2007 16:48:55
kliemi
Nochmal ich
vielleicht noch eine kleine Anmerkung. Ich würde gerne auf einem Tabellenblatt einen Button haben, der eine Abfrage startet. Wie lange dauert das Project(Wochen): XX (daraus folgt die Anzahl der eingerahmten und beschrifteten Spalten. Wie wieviele Teams arbeiten an diesem Projekt: XX daraus folgt wie wiele eingerahmte und beschriftete Zeilen eingefügt werden. Ich weiß, nicht so einfach aber vielleicht...
Bis hoffentlich bald
kliemi
Anzeige
AW: Über Abfrage eine Tabelle erstellen
24.01.2007 07:03:29
EtoPHG
Hallo André,
Stell halt mal so eine Tabelle auf, dann kann man sie als Vorlage benutzen. Aber aufgrund Deiner Angaben irgendwas aus den Fingern zu saugen macht wirklich keinen Sinn.
Gruss Hansueli

278 Forumthreads zu ähnlichen Themen

Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Anzeige
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Daten einer Tabelle in ein Blatt übertragen??
mfc_pj@bluewin.ch

Vielleicht kann mir jemand helfen. Ich habe eine ziemlich grosse Tabelle mit Kundendaten, Sachen wie Adresse, Tel. usw. Nun habe ich auch in Excel eine Karte erstellt mit Feldern wie Vorname, Name usw. um eine Kartei anzulegen. Nun möchte ich gerne die Daten der Liste in die Karte übertragen fü...
18.02.2009 14:24:00
Thread-ID: 1051812
4 Beiträge
Anzeige
Autovervollständigen aus einer Tabelle eines ander
Rockinger

Hallo,
ich hab folgendes Problem:
In meinem Verein gibt es ca. 100 Mitglieder, deren Namen ich in einer Excel-Tabelle eingetragen habe.
Zu einem Turnier kommen nun etliche Mitglieder und Gäste.
Für das Turnier habe ich eine Excel-Auswertung vorbereitet; in dieses Auswerteblatt m...
03.06.2009 13:43:52
Thread-ID: 1078711
2 Beiträge
Tabellenblätter autom. erstellen und ausfüllen
Robert

Hallo Leute
ich habe hier eine Mappe in der ich eine Vorlage für die Prüfung von Maschinen hab.
Ich brauch pro Maschine ein Tabellenblatt und daher würde ich diese gerne automatisch erstellen wenn in der Geräteliste ein Gerät eingetragen wird.
Des Weiteren soll in den automatisch er...
07.07.2009 20:30:38
Thread-ID: 1086950
7 Beiträge
Infos aus einer Tabelle in extra Mappe suchen
Kalle

Hallo zusammen,
ich hab noch nicht viel Ahnung von VB, deshalb es wäre absolut klasse wenn mir einer bei folgendem Problem helfen könnte:
Ich habe eine Tabelle in Mappe 2. In dieser Tabelle stehen zu einer Person verschiedene Daten z.B. Namen, Telefonnummern, Lieblingssportart usw.
...
19.08.2009 08:48:02
Thread-ID: 1096912
2 Beiträge
aus vielen einzelnen Tabellen in einer datei autom
Michael

Hallo zusammen,
wer kann mir helfen, ich möchte aus 175 tabellen in einer datei automatisch eine machen... geht das?
Danke Gruss
M.
05.11.2009 15:33:08
Thread-ID: 1114748
6 Beiträge
Erstellen einer weiteren Graphik aus Wertetabelle
Ganna

Hallo,
nachdem ich nach der Berechnung eine Wetetabelle bekomme und mit 1. und 2. Spalte eine Graphik erstelle, möchte ich nun einen weitern Graph aus dieser Tabelle als Zusatzdiagrammblatt mit 1. und 3. Spalte erstellen. Habe ein Teil noch mal kopiert und statt 2 die 3 geschrieben, sowie G...
12.11.2009 12:09:45
Thread-ID: 1116444
4 Beiträge
Anzeige

Links zu Excel-Dialogen

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
18
5
2
3
21
1
6
1
5
3
2
3
4
4
1
5
2
6
1
1
1
3
13
2
11