Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Kopie von Worksheet inkl. Werten

Forumthread: Automatische Kopie von Worksheet inkl. Werten

Automatische Kopie von Worksheet inkl. Werten
11.08.2005 09:27:30
Worksheet
In beiliegendem Excel möchte ich die Tabelle in sheet2 in neu anzulegende Sheets kopieren, wobei die neuen sheets jeweils die Namen der Subprojekte aus sheet1 spalte B bekommen sollen.
Dazu habe ich folgendes Makro:

Sub kopieren()
Dim i As Integer
For i = 2 To Sheets(1).Cells(65536, 2).End(xlUp).Row
Sheets(2).Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(1).Cells(i, 2)
Next i
End Sub

https://www.herber.de/bbs/user/25512.xls
Ich würde jetzt noch gerne in einem Schritt den jeweiligen Namen der Subprojekte aus sheet1 Spalte B in die zelle c1 des neu angelegten Sheets pro Subprojekt schreiben und den jeweiligen Wert der Zelle E1 der neuen Sheets in sheet 1 ab D14 darstellen.
Nachdem ich es nicht schaffe, hoffe ich, dass Ihr mir helfen könnt.
LG, Stephan
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Kopie von Worksheet inkl. Werten
11.08.2005 11:23:47
Worksheet
Hallo Stephan,
eine mögliche Lösung wäre:

Sub kopieren()
Dim i As Integer
For i = 3 To Sheets(1).Cells(65536, 2).End(xlUp).Row
With Sheets(1).Cells(i, 2)
Sheets(2).Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = .Value
Sheets(Sheets.Count).Cells(1, 3).Value = .Value
.Offset(11, 1).Value = .Value
.Offset(11, 2).FormulaR1C1 = "=INDIRECT(""'""&RC[-1]&""'!E1"")"
End With
Next i
End Sub

Gruß
Gerd
Anzeige
Vielen Dank, Gerd - funktioniert super!! (oT)
11.08.2005 11:46:03
Stephan
AW: Automatische Kopie von Worksheet inkl. Werten
11.08.2005 11:28:40
Worksheet
Hallo,

Sub kopieren()
Dim i As Integer, strName As String
Application.ScreenUpdating = False
For i = 3 To Sheets(1).Cells(65536, 2).End(xlUp).Row
strName = Sheets(1).Cells(i, 2)
Sheets(2).Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = strName
.Range("C1") = strName
End With
With Sheets(1).Rows(11 + i)
.Cells(3) = strName
.Cells(4).FormulaLocal = "='" & strName & "'!$E$1"
End With
Next i
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub
Gruß
Geist ist geil!
Anzeige
Danke!! Noch besser ;) (oT)
11.08.2005 11:51:23
Stephan
;

Forumthreads zu verwandten Themen

Makro aus Worksheet über ein Addin ansprechen
Florian

Guten Morgen,
ich habe ein Addin erstellt, dass automatisch eine Symbolleiste erstellt! Alles OK soweit!
1.
Ich möchte über diese Symbolleiste (aus dem Addin) auf einen Code des geöffneten Worksheets zugreifen. Wie kann ich über die Sybolleiste des Addin`s den Code/das Makro des akt...
05.02.2009 08:23:14
Thread-ID: 1047280
2 Beiträge
.jpg-dateien in worksheet per Makro?
Florian

Hallo zusammen,
ist es möglich jpg-Fotos per Makro in einem Worksheet zu speichern? Will eine Art Produktkatalog machen, dh. habe für alle Bestellnummern ein Foto in einem Ordner liegen (Name jeder Datei XXXX.jpg, wobei XXXX = Bestellnummer). Nun will ich jedem Artikel in einer Liste ein Fo...
14.02.2009 15:25:00
Thread-ID: 1050743
2 Beiträge
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
Verlassen eines Worksheets verhindern
Frank

Guten Morgen,
ich möchte verhindern, daß das aktive Worksheet "Tabelle 1" verlassen werden kann wenn in Zelle A1 ein Wert 0 steht. Wenn also zum Beispiel der Reiter für "Tabelle 2" angeklickt wird soll eine Messagebox erscheinen mit dem Hinweise "aktuelles Worksheet kann nicht verlassen we...
14.10.2009 11:16:28
Thread-ID: 1109544
3 Beiträge
In Worksheet erstelltes Chart per VBA ansprechen
lorenz1980

Hi miteinander,
ich habe folgenden Code für Charts, die ein eigenes Worksheet darstellen - und dieses läuft: Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y _ As Long) Dim ElementID As Long, Arg1 As Long, Arg2 As Long, inPunkt As Integer, arr...
25.10.2009 13:29:53
Thread-ID: 1112009
2 Beiträge
ActiveSheet.Unprotect - Bei Drehfeld
Heinz

Hallo Leute
Im unteren Code wird mir der Blattschutz nicht aufgehoben.
Hätte bitte jemand eine Lösung ?
Danke & Gruß
Heinz H
Option Explicit
Sub Drehfeld1_BeiÄnderung() ActiveSheet.Unprotect Application.Calculate ActiveSheet.Protect End Sub
16.11.2009 22:08:26
Thread-ID: 1117774
5 Beiträge
Anzeige
2 Suchfenster 2 Bedingungen - Worksheet_Change
miss18

Hallo liebes Forum.
ich habe ein kleines Problem und komme einfach nicht weiter. Ich hoffe Ihr könnt mir weiterhelfen.
Ich habe auf meiner Übersicht zwei Suchfelder definiert (AL8:AN8 & AL9:AN9):
Im oberen Suchfeld kann man nach Zahlen, im unteren nach Namen suchen - daneben sin...
04.02.2010 14:34:09
Thread-ID: 1135782
3 Beiträge
Worksheet.Protect - Passw per VBA läuft nicht mehr
Max

Hallo zusammen.
Folgendes Makro habe ich seit Jahren ohne probleme benutzt: Sub HBxkxU() On Error Resume Next ActiveSheet.Unprotect Password:="" If Err "0" Then Err = "0" ActiveSheet.Unprotect Password:="XpwX" Else: Stop End If End Sub Es lief anstandslos auf den letzten 2 Excel 2007 Inst...
06.04.2010 15:48:44
Thread-ID: 1150350
4 Beiträge
Anzeige
Daten in Worksheet, ohne Anzeige zu wechseln?
Volker

Hallo zusammen,
mit u.a. Makro ermittele ich in einem Worksheet Zeilen, die ich löschen will (Zeile wird leer gemacht, wenn da in der betreffenden Spalte ein Wert aus dem Array "BekannteGr()" drin steht).
Ich muss aber zu Kontrollzwecken alles, was ich lösche, in einem anderen Worksheet...
25.08.2010 16:05:06
Thread-ID: 1174208
3 Beiträge
Private Sub Worksheet_Change in Modul auslagern
Claudia

Hallo zusammen,
möchte folgenden Code aus Private Sub Worksheet_Change(ByVal Target As Range) in ein Modul auslagern. Soll heissen: unabhä _ _ ngig von einer Eingabe wie dargestellt soll ein Makro hingehen und prüfen, ob aufgrund der _ Werte im genannten I-Bereich noch Änderungen / Ergän...
12.09.2010 21:11:38
Thread-ID: 1177131
3 Beiträge
Brauche Hilfe bei meinem Code: WorkSheet Change
Holger,

Guten Morgen Forum,
kurz und knackig:
Ich habe einen Code geschrieben zur Worksheet Überwachung.
Mein Ziel: Abfragen, ob ein Zellinhalt gelöscht wird.
Funktioniert leider nicht, da der Code anspringt, sobald man eine Zelle mit
leerem Inhalt auswählt.
Könnt ihr mir bitte...
20.01.2011 09:43:04
Thread-ID: 1196547
3 Beiträge
Anzeige
ActiveSheet.Protect löscht Zwischenablage
Wolfgang

Hallo Forum,
ich hoffe Ihr könnt wieder helfen.
Ich habe ein geschützes Excel Sheet mit wenigen editierbaren Zellen.
Ich habe in VBA ein Zeilenmarkierung programmiert. Mit dem Event 'Selection_Change' wird die jeweils aktive Zeile 'hervorgehoben'. Nachdem die Zellen teilw. geschützt...
06.07.2011 23:03:57
Thread-ID: 1221109
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige