Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arbeitsmappe ergänzen

Arbeitsmappe ergänzen
29.06.2007 11:37:48
Günter
Guten Tag,
benötige einen VBA-Ansatz für folgendes:
Ich habe eine Exceldatei mit ca. 30 Tabellenblätter.
Eine Automation (VBA) müsste den Tabellenblattname
auslesen und im gleichen Tabellenblatt eine Spalte
vorne zufügen und den Tabellenblattname in diese
Spalte bis zum Ende der Einträge einfügen.
Und das für alle Tabellenblätter in der Arbeitsmappe.
Help...
Gruss
Günter

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe ergänzen
29.06.2007 11:40:00
Günter
Hallo,
kleiner Zusatz:
Ergänzen ab Zelle A2....
Gruss
Günter

AW: Arbeitsmappe ergänzen
29.06.2007 11:56:00
Renee
Mazwara Günter,
Kopier diese Makro in eine Modul und lass es laufen:

Sub WSPlus()
Dim ws As Object
For Each ws In ActiveWorkbook.Worksheets
If ws.Range("A2")  ws.Name Then
ws.Range("A:A").Insert Shift:=xlToRight
ws.Range("A2:A" & ws.Range("B" & ws.Rows.Count).End(xlUp).Row) = ws.Name
End If
Next
End Sub


Greetz Renee

AW: Arbeitsmappe ergänzen
29.06.2007 12:03:15
Günter
Hallo Rene,
genial !
Vielen Dank
Gruss
Günter

AW: Arbeitsmappe ergänzen
29.06.2007 12:25:10
Günter
Hallo Renee,
vielleicht noch eins:
Wenn im gleichen Makro bei jedem Tabellenblatt
in Zelle A1 folgendes noch automatisch reinge-
schrieben wird: iknr
Wie ginge dies?
Gruss
Günter

Anzeige
AW: Arbeitsmappe ergänzen
29.06.2007 12:29:27
Renee
Hello again,

Sub WSPlus()
Dim ws As Object
For Each ws In ActiveWorkbook.Worksheets
If ws.Range("A2")  ws.Name Then
ws.Range("A:A").Insert Shift:=xlToRight
ws.Range("A1") = "iknr"
ws.Range("A2:A" & ws.Range("B" & ws.Rows.Count).End(xlUp).Row) = ws.Name
End If
Next
End Sub


Rgds Renee

AW: Arbeitsmappe ergänzen
29.06.2007 12:37:13
Günter
Hallo Renee,
funktioniert super.
Schäm, Schäm... vielleicht noch was:
Jetzt habe ich in der Arbeitsmappe ca. 30 Arbeitsblätter.
Gerne hätte ich über Makro alle vorhandenen ca. 30 Arbeitsblätter
untereinander/hintereinander und die Restlichen Arbeitsblätter gelöscht?!
Gruss
Günter

Anzeige
AW: Arbeitsmappe ergänzen
29.06.2007 12:41:00
Renee
Hello Günter,
Ich verstehe den Ausdruck: untereinander/hintereinander und die Restlichen Arbeitsblätter gelöscht?! nicht. Kannst Du das anders formulieren ?
Regards Renee

AW: Arbeitsmappe ergänzen
29.06.2007 12:49:00
Günter
Hallo Renee,
meinte, dass der Inhalt aller Arbeitsblätter in ein
Arbeitsblatt kommt.
D.h. was vor 30 A-Blätter waren ist Inhaltsmäßig nur
noch ein Arbeitsblatt.
Das mit dem Löschen kann man sein lassen.
Gruss
Günter

AW: Arbeitsmappe ergänzen
29.06.2007 12:42:06
Günter
Hallo Renee,
funktioniert super.
Schäm, Schäm... vielleicht noch was:
Jetzt habe ich in der Arbeitsmappe ca. 30 Arbeitsblätter.
Gerne hätte ich über Makro alle vorhandenen ca. 30 Arbeitsblätter
untereinander/hintereinander und die Restlichen Arbeitsblätter gelöscht?!
Gruss
Günter

Anzeige
AW: Arbeitsmappe ergänzen
29.06.2007 13:01:27
Günter
Hallo Renee,
oder so formuliert:
Mache mir ein neues Arbeitsblatt in dieser Arbeitsmappe und
kopiere des Inhalt jedes weiteren vorhandenen Arbeitsblattes
und kopiere diese in das neue Arbeitsblatt.
Somit wäre der Inhalt aller Arbeitsblätter im neuen Arbeitsblatt.
Gruss
Günter

AW: Arbeitsmappe ergänzen
29.06.2007 13:05:30
Renee
Hello Günter,
Ok, ich glaube ich verstehe es jetzt.
Aber dazu musst Du noch folgende Fragen beantworten:
1. Soll das in das Makro von vorher integriert werden, oder soll jene Funktion wegfallen ?
2. Soll die Titelzeile nur aus dem ersten Blatt genommen werden?
Gruss Renee

Anzeige
AW: Arbeitsmappe ergänzen
29.06.2007 13:17:48
Günter
Hallo Renee,
zur Frage 1: Ja, bitte mit ins Makro mit einbauen.
zur Frage 2: Ja, Titel aus 1. Arbeitsblatt.
Gruss
Günter

AW: Arbeitsmappe ergänzen
29.06.2007 15:30:00
Günter
Hallo Renee,
bis du noch im Forum?
Gruss
Günter

AW: Arbeitsmappe ergänzen
29.06.2007 16:52:58
Renee
Mazwara Günter,
Jetzt bin ich zurück von der Firmensitzung.
So:

Sub WSPlus()
Dim ws As Object
Dim dLastRow As Double
For Each ws In ActiveWorkbook.Worksheets
If ws.Range("A2")  ws.Name Then
ws.Range("A:A").Insert shift:=xlToRight
ws.Range("A1") = "iknr"
ws.Range("A2:A" & ws.Range("B" & ws.Rows.Count).End(xlUp).Row) = ws.Name
If ws.Index  1 Then
Application.CutCopyMode = False
dLastRow = ThisWorkbook.Sheets(1).Range("A" & _
ThisWorkbook.Sheets(1).Rows.Count).End(xlUp).Row + 1
ws.UsedRange.Copy Destination:=Sheets(1).Range("A" & dLastRow)
ThisWorkbook.Sheets(1).Rows(dLastRow & ":" & dLastRow).Delete shift:=xlUp
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
End If
Next
End Sub


Rgds Renee

Anzeige
AW: Arbeitsmappe ergänzen
29.06.2007 17:03:00
Günter
Hallo Renee,
wiedermals genial...
Klappt auf Anhieb..
Ein schönes Wochenende aus Frankfurt...
Gruss
Günter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige