Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zeilenweise auf ein neues Tabellenblatt

Forumthread: zeilenweise auf ein neues Tabellenblatt

zeilenweise auf ein neues Tabellenblatt
11.12.2007 13:05:00
Thomas
Hallo liebe Excel'ler,
ich habe eine Tabelle, in der zeilenweise Datum, Name des Auftraggebers, Objekt und Zeitraum stehen.
Da aber zu jedem Haus eine Checkliste angelegt werden soll möchte ich gerne, dass jede Zeile auf ein Neues Tabellenblatt kopiert wird.
Ist das möglich... Hat jemand eine Idee...
Vielen Dank im Voraus.
Gruß Thomas

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeilenweise auf ein neues Tabellenblatt
11.12.2007 13:23:24
Rudi
Hallo,
in ein Modul:

Sub tt()
Dim c As Range
For Each c In Sheets(1).Columns(1).SpecialCells(xlCellTypeConstants)
c.EntireRow.Copy Worksheets.Add(after:=Sheets(Sheets.Count)).Range("A1")
Next
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: zeilenweise auf ein neues Tabellenblatt
11.12.2007 14:09:22
Thomas
Danke. Funktioniert prima.
Hätte da noch was...
- Kann auch immer eine Zeile z.B. 1 immer mit kopiert werden (Kopfzeile)?
- der Tabellenblattname soll der laufenden Nummer in Spalte 1 entsprechen?
Dann wäre ALLES perfekt...
Tausend Dank.
Gruß Thomas

AW: zeilenweise auf ein neues Tabellenblatt
11.12.2007 15:58:39
Rudi
Hallo,

Sub tt()
Dim c As Range, wks As Worksheet
For Each c In Sheets(1).Columns(1).SpecialCells(xlCellTypeConstants)
If c.Row > 1 And Not SheetExists(c.Value) Then
Set wks = Worksheets.Add(after:=Sheets(Sheets.Count))
c.Parent.Rows(1).Copy wks.Range("A1")
c.EntireRow.Copy wks.Range("A2")
wks.Name = c.Value
End If
Next
End Sub
Function SheetExists(strSheetName As String) As Boolean
Dim wks As Worksheet
For Each wks In Sheets
If wks.Name = strSheetName Then
SheetExists = True
Exit Function
End If
Next
End Function


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige

Forumthreads zu verwandten Themen

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
Teile von Zeilen in neue Tabelle kopieren
Zeilen

Folgendes Problem:
In einer Tabelle mit wechselnder Zeilenanzahl sind immer in den Spalte A bis D Werte eingetragen. Optional können auch in den Spalten E bis variabel Werte enthalten sein.
A B C D E...
03.06.2010 13:49:24
Thread-ID: 1160165
8 Beiträge
in Tabelle ganz ab Zeile 1 10 neue Zeilen einfügen
Peter

Hallo
Wie kann ich in einer Tabelle ganz oben ab Zeile 1 zehn neue Zeilen einfügen?
Eine Zeile habe ich herausgefunden:
sheets("Uebersicht").Range("A1").EntireRow.Insert
Gruss, Peter
29.08.2011 12:41:15
Thread-ID: 1227893
3 Beiträge
zahlen aus excel in wordtabelle farbig einfügen
preusbep

hallo ich würde gerne zahlen die ich aus excel lese in eine wordtabelle farbig einfügen. Leider werden die Zahlen nicht farbig sondern bleiben schwarz !
Danke für die Hilfe Sub farbe3() Dim Farbe(1 To 3, 1 To 1) As Single Set Word = CreateObject("word.Application") For i = 1 To 3 Farbe(i, 1...
27.09.2011 15:29:42
Thread-ID: 1231690
4 Beiträge
Anzeige
Nach Zellinhalt suchen und Zeile in neue Tabellen
Steffen

Hallo VBA-Freunde,
ich verzweifle grad an folgender Situation:
In einer Quelltabelle gibt es in Spalte K eine Institusbezeichnung.
Nun sollen entsprechend der Institute diese Datensätze in neue Tabellen kopiert werden.
D.h. alle aus dem InstitutA nach Tabelle InstitutA ,alle aus...
18.10.2012 10:38:26
Thread-ID: 1282562
2 Beiträge
Zeile in neue Tabelle übernehmen wenn Bedingung er
Tobias

Guten Tag,
anbei meine bisherige Tabelle:
https://www.herber.de/bbs/user/85458.xlsx
Das Anzeigen der Dateien klappt soweit auch ganz gut, allerdings zeigt er mir immer nur einen Datensatz an. Ich vermute daher noch einen Fehler in meiner Formel.
Für Hilfe bin ich sehr dankbar.<...
22.05.2013 14:43:13
Thread-ID: 1314353
3 Beiträge
Zeilen in ein neues Tabellenblatt übertragen
Peter S

HalloIst es möglich aus einer Tabelle alle Zeilen, die z.B in Spalte L den Wert >80 enthalten, in ein neues Tabellenblatt zu übertragen
05.07.2002 14:11:45
Thread-ID: 134227
3 Beiträge
Anzeige
Kopieren von Zellen/Zeilen in neue Tabelle
Zellen/Zeilen

Hallo Zusammen,
habe folgendes Problem was ich gern mit einem Makro lösen wollen würde.
1 Tabelle Artikel Nummer Zeile Text 1 Text 2 123 1 1 Das ist 123 1 2 ein Test 567 1 1 Die Farbe ist grün 897 1 1 Die Farbe ist rot
Wunschergebnis: Artikel Nummer...
09.10.2013 11:13:43
Thread-ID: 1333680
7 Beiträge
Anzeige
Word Kopfzeile Grafik einfügen
Willi

Hallo zusammen,
ich habe folgendes Problem:
Ich erstelle mit Excel VBA ein Word-Dokument. Ich möchte jetzt im Word-Dokument eine Grafik in die Kopfzeile einfügen. Es soll nur die Excel-Datei zwischen verschiedenen Leuten hin- und hergeschickt werden, deshalb kann ich die Grafik nicht ir...
23.10.2013 16:14:35
Thread-ID: 1335594
3 Beiträge
Tabelle in VBA erweitern (neue Zeile am Ende)
Rainer

Hallo,
ich möchte eine Tabelle in mehreren Schritten so füllen, dass in jedem Schritt jeweils hinter der letzten bereits gefüllten Zeile weitergemacht wird. Solange keine Zeilen gelöscht werden, klappt das mit UsedRange ganz gut, aber sobald Zeilen gelöscht werden liefert UsedRange immer no...
16.01.2014 14:41:00
Thread-ID: 1345480
2 Beiträge
Einlesung bestimmter Zeilen in neue Tabelle
Wolfi

Hallo!
Wenn jemand einem VBA Neuling wie mir in dieser Sache weiter helfen könnte, wäre ich sehr dankbar :-D
Ich möchte aus einer Excel Tabelle, nennen wir sie mal Tabelle 1, Daten in eine andere Excel Tabelle (Tabelle 2 ) einlesen. Tabelle 1 schaut ungefähr wie folgt aus...
1 1001...
30.06.2014 15:33:57
Thread-ID: 1368209
4 Beiträge
Tabellenzeilen suchen, kopieren und einfügen
Chris

Hallo liebe Forumsmitglieder,
ich möchte in ein Excel Tool ein Makro einbauen, das folgende Funktionen hat:
1) Ich kann einen Dateipfad für eine Quellexcel auswählen, aus dem ich Daten Importieren möchte. (bereits erledigt)
2) Das Makro soll beim Aktivieren die Quellexcel öffnen (be...
24.09.2014 18:59:09
Thread-ID: 1383269
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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