Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1360to1364
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
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einfügen einer Headerzeile

Einfügen einer Headerzeile
25.05.2014 16:45:07
vba_neuling
Hallo an alle,
ich bin ganz neu hier, konnte mir aber schon ein paar wirkliche hilfreiche Tips für VBA aus diesem Forum holen. Bei einem Problem komme ich allerdings leider nicht weiter, und hoffe dass ihr mir dabei helfen könnt.
Ich habe in einem Worksheet "Tabelle1" eine unbestimmt lange Liste an Namen, denen jeweils ein Raum zugewiesen ist. Die Liste ist derart sortiert:
Spalte| A | B | C
Zeile1|Nachname|Vorname|Raum1
Zeile2|Nachname|Vorname|Raum1
Zeile3|Nachname|Vorname|Raum2
Zeile4|Nachname|Vorname|Raum2
Zeile5|Nachname|Vorname|Raum2
Zeile6|Nachname|Vorname|Raum3
....
Es sind also alles unterschiedliche Vornamen und Nachnamen, aber den ersten zwei Personen ist der gleiche Raum1 zugewiesen, den nächsten drei der Raum2 und der letzten Person Raum3.
Nun möchte ich gerne über der erste Person, der der Raum1 zugewiesen wurde, einen Header einfügen, ebenso über der ersten Person, der der Raum2 zugewiesen wurde und so weiter. Die Anzahl der verschiedenen Räume kann sich ändern!!! Ebenso die Anzahl der Personen die einem Raum zugewiesen wurden. Folglich brauche ich leider auch noch alles dynamisch:(
Das Ergebnis sollte also so ausschauen:
Spalte| A | B | C
Zeile1|Personenliste für den Raum1
Zeile2|Nachname|Vorname|Raum1
Zeile3|Nachname|Vorname|Raum1
Zeile4|Personenliste für den Raum2
Zeile5|Nachname|Vorname|Raum2
Zeile6|Nachname|Vorname|Raum2
Zeile7|Nachname|Vorname|Raum2
Zeile8|Personenliste für den Raum3
Zeile9|Nachname|Vorname|Raum3
Die Räume werden in dem Worksheet "Tabelle2" mit Hilfe eines Makros aufgelistet (in der gleichen Reihenfolge wie in Tabelle1, falls das was hilft):
SpalteA
Zeile1|Raum1
Zeile2|Raum2
Zeile3|Raum3
....
Ich stelle mir also ein Makro vor, dass in Tabelle2 nachschaut, sich den ersten Raum sucht, den Raum mit der Liste in Tabelle1 vergleicht, und dann über den ersten Eintrag mit Raum1 den Header einfügt. Dies soll das Makro solange machen, bis alle Räume aus Tabelle2 abgearbeitet sind. Die Räume, die in Tabelle1 und Tabelle2 vorkommen, sind gleich. Es gibt also nicht in Tabelle2 noch einen Raum4 und in Tabelle1 nicht.
Ich hoffe ich konnte mein Problem einigermaßen klar darstellen.
Freue mich über jede Hilfe!!
VG
vba_neuling

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

Betreff
Datum
Anwender
Anzeige
AW: Einfügen einer Headerzeile
25.05.2014 18:05:39
Daniel
Hi
probiere mal das.
Option Explicit
Sub test()
With Sheets("Tabelle2").Cells(1, 1).CurrentRegion
Sheets("tabelle1").Rows(1).Resize(.Rows.Count).Insert
.Copy Destination:=Sheets("Tabelle1").Cells(1, 3)
With Sheets("Tabelle1").Cells(1, 1).Resize(.Rows.Count)
.FormulaR1C1 = "=""Personenübersicht für den : ""&RC3"
.Formula = .Value
End With
End With
Sheets("Tabelle1").Cells(1, 1).CurrentRegion.Sort _
key1:=Sheets("Tabelle1").Cells(1, 3), _
order1:=xlAscending, Header:=xlNo
End Sub

gruß Daniel

AW: Einfügen einer Headerzeile
25.05.2014 22:35:32
vba_neuling
Hallo Daniel,
erst einmal vielen Dank für die schnelle Antwort!
Es würde eigentlich auch super funktionieren, nur habe ich leider das Problem dass die Räume nicht alle sinnvolle Bezeichnungen haben, das heißt ich kann diese nicht wie von dir vorgeschlagen nach der Nummer sortieren lassen:( Vielleicht ein Beispiel, dass das klarer macht: Raum1 heißt AD2343; Raum2 heißt Z3 und Raum3 heißt N2000.
Tut mir sehr leid, dass ich da mit meinem vereinfachten Beispiel Verwirrung gestiftet habe. Und du dir jetzt die Mühe umsonst gemacht hast!
Ich hoffe trotzdem sehr, dass du oder jemand anderes mir nochmal helfen kann.
Vielen Dank schon mal!!!
VG
vba_neuling
PS: Vielleicht kann mir noch jemand die Zeile .FormulaR1C1 = "=""Personenübersicht für den : ""&RC3" erklären was das &RC3 macht? Man weiß ja nie für was man das mal brauchen kann ;-)

Anzeige
AW: Einfügen einer Headerzeile
25.05.2014 23:08:38
Daniel
Ich frage dich, wie du sicherstellt, dass alle Personen, die den Selben Raum haben, auch direkt untereinander stehen, wenn du nicht nach dem Raum sortiert?
Ohne sortieren funktioniert das:
Option Explicit
Sub test()
Dim Zelle As Range
Dim Z As Long
Dim R As String
With Sheets("tabelle1")
Set Zelle = .Cells(1, 3)
Do While Zelle.Value  ""
Z = Zelle.Row
R = Zelle.Value
.Rows(Z).Insert
.Cells(Z, 1).Value = "Personen für: " & R
Set Zelle = .Columns(3).Find(what:=R, _
lookat:=xlWhole, _
searchdirection:=xlPrevious) _
.Offset(1, 0)
Loop
End With
End Sub

die Liste muss allerdings schon soweit nach den Räumen sortiert sein, dass alle Personen für einen raum direkt unter einander stehen.
Das "RC3" ist nur ein Zellbezug auf die Zelle in der selben Zelle in Spalte C.
gruss Daniel

Anzeige
AW: Einfügen einer Headerzeile
26.05.2014 09:23:36
vba_neuling
Hallo Daniel,
wahnsinn! Ich bin total begeistert!! Vielen vielen Dank für deine Hilfe!
Das mit dem Sortieren ist eine gute Frage. Es könnte sein, dass die Einträge gar nicht sortiert werden. Das weiß ich aber in meiner umfassenden Unwissenheit leider gar nicht.
Im Moment ist es so, dass ich aus einer eigentliche schon sortierten Liste, sagen wir mal Tabelle3 mit dem Spezialfilter nach den Räumen in Tabelle2 filtere und diese dann in Tabelle1 geschrieben werden.
-> Sortiert mir der Spezialfilter auch? Warum nicht?
Anschließend geht es dann mit weiteren Listen weiter.
Wenns ok ist, hätte ich noch ein paar Fragen:
Was genau ist Option Explicit und warum kann man das nicht in ein anderes Makro einbinden? Also bei mir jetzt in das, in dem der Spezialfilter und so programmiert ist (bzw.hat das ja offensichtlich eher was mit den Modulen zu tun, oder?)? Weil ich hätte am Ende gerne alles auf einem Button vereint.
Kann man mehrere Module auf einen Button vereinen? Wenn ja, müsste man ja irgendwie die Reihenfolge festlegen, oder?
Tut mir wirklich leid, dass das so ein Desaster ist:(
VG
vba_neuling

Anzeige
AW: Einfügen einer Headerzeile
26.05.2014 12:36:08
Daniel
Hi
der Spezialfilter sortiert noch nicht.
bei meiner ersten Lösung können die Daten unsortiert sein, weil das Makro sie anschließend sortiert
(allerdings müssen die einzlenen Räume in Tabelle2 aufgelistet sein)
meine zweite Lösung geht so vor:
1. nimm den Raum aus der ersten Zeile und füge für ihn eine Überschriftenzeile ein.
2. Suche in der Liste das letzte Vorkommen von diesem Raum.
3. verwende von dieser Fundstelle die nächste Zelle als nächsten Raum und wiederhole damit Schritt 1
dh die Auflistung in Tabelle 2 wird nicht benötigt, aber die Liste muss so erstellt sein, dass es für jeden Raum nur einen Zellblock gibt, welcher nicht durch Zeilen von anderen Räumen unterbrochen ist.
zum Thema Option Explicit:
die Anweisung Option Explicit über einem Modul berirkt, dass du alle verwendeten Variablen mit DIM deklarieren musst.
Das ist enorm hilfreich weil du dann tippfehler bei Variablenbenennungen sofort angezeigt bekommst und dich nicht über seltsame Ergebnisse wundern musst.
Weitere Infos dazu hier: http://www.online-excel.de/excel/singsel_vba.php?f=4
Auf der Seite findest du sicherlich noch den einen oder anderen nützlichen Hinweis für das Arbeiten mit VBA und Excel.
Gruß Daniel

Anzeige
AW: Einfügen einer Headerzeile
26.05.2014 18:21:12
vba_neuling
Hallo Daniel,
ok verstehe. Das hilft ja schon mal viel weiter, wenn man weiß was der Code eigentlich macht. Das erklärt auch, warum es nicht mehr geht, wenn man ganz unten nochmal den gleichen Raum anfügt.
Dann werde ich jetzt mal noch ein bisschen rumprobieren:-)
Gibts zufällig einen einfachen Codeschnippsel, der sortiert, aber halt nur nach "gleichem" und nicht nach Nummer oder alphabetisch?
Ansonsten bedanke ich mich recht herzlich für die gute und schnelle Hilfe!
VG
vba_neuling

AW: Einfügen einer Headerzeile
26.05.2014 23:00:39
Daniel
naja, nach irgendwas muss die Sortierfunktion sortieren.
du kannst irgendwo Listen für bestimmmte Reihenfolgen ablegen (benutzerdefinierte Sortierreihenfolge), aber das dürfte etwas zu kompliziert sein.
eine Möglichkeit wäre folgende:
schreibe in die Spalte D die Formel: =vergleich(c1;c:c;0) und ziehe sie nach unten.
die Formel gibt diemdie Zeilennummer des ersten auftretens in der Liste und damit kannst du dann nachträgliche Einfügungen einsortieren, ohne die Ursprungsreihenfolge durcheinander zu werfen.
oder du listest in einer zweiten Tabelle die Räume in der gewünschten Reihenfolge auf und spielst wieder in der namensliste diese Reihenfolge mit: =vergleich(c1;Tabelle2!A:A;0) die Reihenfolgenummer zu, nach der du dann sortieren kannst.
gruss daniel
Anzeige

300 Forumthreads zu ähnlichen Themen

Namen von Tabellenblätter in Fußzeile übertragen
Tabellenblätter

Hallo zusammen,
ich habe eine ziemlich große Exceldatei mit derzeit ca. 80 Tabellenblättern (Sheets). die Namen beginnen entweder mit "Titel 01" oder "Titel 02". Nun möchte ich gerne haben, dass die Fußzeile einen bestimmten Text druckt, z.B. "GEBÄUDE 100", wenn das Tabellenblatt mit "Titel...
15.10.2008 23:37:38
Thread-ID: 1016707
3 Beiträge
Anzeige
Leere Zeilen in Tabellenspalte zählen
A.Franz

Hallo...
ich habe fogendes Problem u.hoffe das mir jemand helfen kann.Ich Habe eine UserForm mit Listbox u.Textbox.Über diese schreibe ich Werte in die Tabelle (Spalte A).Ist es möglich,wenn ich die Userform aufrufe,das mir die Anzahl noch freier Zeilen in Spalte A z.B in einer TextBox oder...
03.12.2008 12:55:46
Thread-ID: 1029789
4 Beiträge
2 verschiedene Kopfzeilen in einer Tabelle
Horst

Hallo liebe Leute,
ich hab folgendes Problem, ich habe eine Tabelle Bei der ich den Druckbereich variabel gestalte. Zusätzlich möchte ich aber das ab einer bestimmten Seitenanzahl was anderes im Kopf steht. Dazu habe ich einen ansatz hier im archiv gefunden und den auch schon etwas angepas...
28.01.2009 10:51:00
Thread-ID: 1044486
5 Beiträge
Anzeige
Zeile in allen Tabellenblättern durchsuchen
ben

Hallo,
bei folgendem Problem stoße ich mit meinen Excel/VBA Kenntnissen an die Grenze.
Ich würde gern, wenn die Zelle C57 im Blatt Menü ein Wochentag ist, eine Suche in allen Tabellenblättern in der Zeile 9 nach dem Wert der in Zelle C58 (ist die Kalenderwoche) im Blatt Menü steht start...
14.03.2009 13:26:44
Thread-ID: 1060139
2 Beiträge
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
pro tabelleneintrag automatisch eine neue Zeile
papa

Hallo liebe Excelianer,
ich möchte über ein Userform diverse Informationen abfragen und diese dann in einer Tabelle ablegen.
Es soll eine Datenbank entstehen, sprich bei jedem neuen Userformeintrag soll in der Tabelle eine neue Zeile verwendet werden.
Bisher hab ich dieses Vorhaben...
06.10.2009 00:10:16
Thread-ID: 1107402
3 Beiträge
Anzeige

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
2
7
3
4
6
1
1
1
11
2
5
2
8
5
4
7
1
3
10
31
2
2
18
1
4