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

Rücksprung zum aktuellen Arbeitsblatt

Forumthread: Rücksprung zum aktuellen Arbeitsblatt

Rücksprung zum aktuellen Arbeitsblatt
14.03.2005 11:06:15
Frank
Hallo zusammen,
wie schaffe ich es, dass ich nach einer Abfrage (Daten aus einem anderen Datenblatt in der selben Arbeitsappe auslesen) wieder zurück zu dem Blatt komme woher die Abfrage gestartet wurde. Hintergrund, der Arbeitsblattname ist nie der gleiche (wird durch eine Schleife erst erstellt) - deswegen weiß dass Makro auch nicht wohin es die Daten schaufeln soll!!
Gruß Frank
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rücksprung zum aktuellen Arbeitsblatt
14.03.2005 11:09:25
Domke,
Hallo Frank,
Dim wb as Workbook
Dim ws as Worksheet
Set ws = ActiveSheet
Set wb = ActiveWorkbook
... Dein QuellCode ...
wb.Activate
ws.Activate
Set ws = Nothing
Set wb = Nothing
Sollte klappen, viel Erfolg!
Frank.
AW: Rücksprung zum aktuellen Arbeitsblatt
14.03.2005 11:09:57
marcl
Hallo Frank
blatt = ActiveSheet.Name
' Daten schaufeln
Sheets(blatt).Select
vielleicht so?
Gruß
marcl
Anzeige
AW: bekomme immer Laufzeitfehler
14.03.2005 11:38:13
Frank
Ich hänge mal das script rein - habe es gestern durchs Forum dankend erhalten. Nun gehts ans modifizieren. Möchte bevor die Schleife die nächste Abfrage startet und ein neues Datenblatt generiert noch Daten aus einem anderen Datenblatt hinzufügen.
Hintergrund ist welcher, dass ich aus einem zweiten Datenblatt in der Arbeitsmappe immer die Werte der Spalte A zur Diagrammerstellung benötige und diese in die generierten Blätter ebenfalls in Spalte A einfügen möchte.!!!!!!? (Sprich - gehe in Datenblatt Tabelle2 - kopiere Werte aus Spalte A ins aktuelle Blatt Spalte A)
Gruß Frank
Option Explicit

Sub Create_Sheets()
Dim i As Integer
Dim qWks As Worksheet, tWks As Worksheet
Set qWks = Worksheets("Tabelle1")
With qWks
For i = 2 To .Range("IV2").End(xlToLeft).Column
If .Cells(2, i) <> "" Then
Set tWks = ThisWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count))
tWks.Name = .Cells(2, i).Text
.Range(.Cells(2, i), .Cells(.Cells(65536, i).End(xlUp).Row, i)).Copy tkws.Cells(1, 2)
End If
Next i
End With
End Sub

Anzeige
AW: bekomme immer Laufzeitfehler
14.03.2005 12:23:22
marcl
Option Explicit

Sub Create_Sheets()
Dim i As Integer
Dim qWks As Worksheet, tWks As Worksheet
Dim ziel
Set qWks = Worksheets("Tabelle1")
With qWks
For i = 2 To .Range("IV2").End(xlToLeft).Column
If .Cells(2, i) <> "" Then
Set tWks = ThisWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count))
tWks.Name = .Cells(2, i).Text
.Range(.Cells(2, i), .Cells(.Cells(65536, i).End(xlUp).Row, i)).Copy tWks.Cells(1, 2) ' hier waren die Buchstaben verdreht 'tkws'
ziel = tWks.Name
Sheets("Tabelle1").Columns("A:A").Copy
Sheets(ziel).Select
Range("A1").Select
ActiveSheet.Paste
End If
Next i
End With
End Sub

Anzeige
AW: excel ist aber heute wieder störrisch
14.03.2005 12:46:36
Frank
Hallo Marcl,
erstmals danke für deine Bemühungen - kriegen das schon hin. Bis zum Makieren der Spalte A im Datenblatt "Radius" funktioniert alles nur dann weiß Excel nicht wohin mit den Daten --- deswegen Laufzeitfehler. Habe oben Dim Ziel als Worksheet deklariert - denkste ?
Frank
AW: excel ist aber heute wieder störrisch
14.03.2005 12:54:59
Frank
Hallo Marcl,
erstmals danke für deine Bemühungen - kriegen das schon hin. Bis zum Makieren der Spalte A im Datenblatt "Radius" funktioniert alles nur dann weiß Excel nicht wohin mit den Daten --- deswegen Laufzeitfehler. Habe oben Dim Ziel als Worksheet deklariert - denkste ?
Frank
Anzeige
AW: excel ist aber heute wieder störrisch
14.03.2005 13:00:15
marcl
Ja Frank,
wo sollen die Daten denn hin?
In das neu angelegte Blatt, oder?
Wär doch gelacht, wenn wir das nicht hin bekommen.
Gruß
marcl
AW: excel ist aber heute wieder störrisch
14.03.2005 13:29:43
Frank
Hi Marcl,
Ich habe eine Mappe mit zwei Blättern. 1.Datenblatt Tabelle1 werden Werte eingelesen (immer die selbe Anordnung - kann aber nach rechts varieren). 2.Datenblatt Namens Radius stehen feste Werte in Spalte A von A2 bis A28.
Das Makro soll folgendes machen - guckt in tabelle1 Zeile2 Anfang Spalte2 nach einem Eintrag -wenn ja soll ein Tabellenblatt mit diesem Namen angelegt und gleichzeitig die Werte dieser Spalte in Spalte B übernommen werden. Bevor die weiteren Datenblätter ebenso angelegt werden, sollen die Werte aus Tabellenblatt Radius ebenfalls in das generierte Tabellenblatt in Spalte A übernommen werden.
Das zweite "kleine" Problemchen ist, dass sich die Daten in Spalte B von B2 bis B224 erstrecken und ich gern noch diese umsetzen möchte (Werte 1-56 nach B1-B56)(57-112 nach C1-C56)(113-168 nach D1-D56) und 159- 226 nach E1-E56). Aber eins nach dem anderen. Erstmals müssen die Radius Formeln rüber.
Frank
Anzeige
AW: excel ist aber heute wieder störrisch
14.03.2005 14:37:08
marcl
Option Explicit

Sub Create_Sheets()
Dim i As Integer
Dim qWks As Worksheet, tWks As Worksheet
Dim ziel
Set qWks = Worksheets("Tabelle1")
With qWks
For i = 2 To .Range("IV2").End(xlToLeft).Column
If .Cells(2, i) <> "" Then
Set tWks = ThisWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count))
tWks.Name = .Cells(2, i).Text
.Range(.Cells(2, i), .Cells(.Cells(65536, i).End(xlUp).Row, i)).Copy tWks.Cells(1, 2)
ziel = tWks.Name
Sheets("Radius").Columns("A:A").Copy
Sheets(ziel).Range("A1").Select
ActiveSheet.Paste
Sheets("Tabelle1").Range("B2:B57").Copy
Range("B1").Select ' auf dem neu angelegten Blatt
ActiveSheet.Paste
Sheets("Tabelle1").Range("B57:B113").Copy
Range("C1").Select ' auf dem neu angelegten Blatt
ActiveSheet.Paste
Sheets("Tabelle1").Range("B114:B159").Copy
Range("D1").Select ' auf dem neu angelegten Blatt
ActiveSheet.Paste
Sheets("Tabelle1").Range("B160:B227").Copy
Range("E1").Select ' auf dem neu angelegten Blatt
ActiveSheet.Paste
End If
Next i
End With
End Sub

Anzeige
AW: excel ist aber heute wieder störrisch
14.03.2005 15:10:54
Frank
Wir arbeiten uns langsam vorwärts!!! Wow
radius wird eingesetzt - super
Nur das zweite angekündigte Problemchen spinnt noch!
Habe beim kopieren "tabelle1" durch ziel ersetzt - da die Spalte B in dem neu generierten Blatt aufgeteilt werden soll.
Sheets(ziel).Range("B56:B109").Copy
Range("C2").Select ' auf dem neu angelegten Blatt
ActiveSheet.Paste
Bis zum Markieren der Zellen "B56:B109" läuft dies auch und dann kommt eine Fehlermeldung mit einem Roten Kreis + weisem Kreuz und der Zahl 400 - was ist denn das für ein Quatsch?
Anzeige
Danke
14.03.2005 16:59:10
Frank
Hi,
habs hinbekommen mit:
Sheets(ziel).Range("B164:B217").Select
Selection.Cut Destination:=Sheets(ziel).Range("E2:E55")
Sheets(ziel).Range("A1").Select
Danke für Deine Hilfe
Gruß Frank
AW: excel ist aber heute wieder störrisch
14.03.2005 13:00:15
marcl
Ja Frank,
wo sollen die Daten denn hin?
In das neu angelegte Blatt, oder?
Wär doch gelacht, wenn wir das nicht hin bekommen.
Gruß
marcl
Anzeige

Beliebteste Forumthreads (12 Monate)

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