Zum letzten verwendeten Tabellenblatt springen

Kai · 2006-11-07T13:18:57+00:00

Hallo, ich bräuchte einmal mehr eure Hilfe. Folgende Problematik: Ich habe eine Tabelle mit elf Tabellenblätter. In den ersten Zehn können Daten eingetragen werden, welche mit Hilfe eines Scripts in das elfte Tabellenblatt kopiert werden. Nun hätte ich ganz gerne die Möglichkeit, dass ich aus dem elften Tabellenblatt in das zu letzt bearbeitete Tabellenblatt zurückspringe ohne die Blattregisterkarten zu benutzen. Ich hatte hier zwar schon in der Recherche etwas gefunden, jedoch funktioniert dies nicht. Wie lässt sich dies realisieren? Schon mal vielen Dank im Voraus. Gruß Kai

Hallo,
also das hier hatte ich gefunden (habe nur die Angabe mit dem Button geändert)


Private Sub CommandButton7_Click()
strSheet = ActiveSheet.Name
strRange = ActiveCell.Address
Sheets(strSheet).Select
Range(strRange).Select
End Sub

Folgendes Makro wird verwendet um die Daten in das elfte Tabellenblatt zu kopieren


Private Sub CommandButton1_Click()
Dim Zeile As Long
With Sheets("Quelle")
For Zeile = 1 To .Range("G65536").End(xlUp).Row
If .Cells(Zeile, 7) > 0 Then
.Cells(Zeile, 7).EntireRow.Copy
If Sheets("Ziel").Range("A13") = "" Then
Sheets("Ziel").Range("A13").PasteSpecial Paste:=xlPasteAll
Else
Sheets("Ziel").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End If
End If
Next 'Zeile
End With
With Sheets("Ziel")
.Columns("C:F").EntireColumn.Hidden = True
.Activate
.Columns("H:I").NumberFormat = _
"_-[$-2] * #,##0.00_-;-[$-2] * #,##0.00_-;_-[$-2] * ""-""?_-;_-@_-"
.Range("B4").Select
End With
End Sub

(Hoffe die Anzeige ist korrekt.)
Gruß
Kai

Hallo Kai,
welches ist das zuletzt bearbeitete Blatt?
Dein Kopiermakro kopiert Daten aus dem Blatt "Quelle" nach "Ziel".
Befindet sich der CommandButton1 dazu auf dem Blatt "Quelle"?
Hast du in den ersten 10 Blättern analoge Makros - mit anderen Namen als "Quelle"?
Dann könnstest du
With Sheets("Quelle")
ersetzen durch
With ActiveSheet
und das Makro dann identisch in allen 10 Blättern nutzen.
Oder befindet sich CommandButton1 vielleicht auf dem Blatt "Ziel"?
Wenn das Blatt, aus dem zuletzt kopiert wurde, das zuletzt bearbeitete Blatt ist,
dann kannst du im Kopiermakro eine Variable "wsLast" belegen mit
Set wsLast = ActiveSheet oder Set wsLast = Sheets("Quelle")
In den Code des Rücksprung-Buttons kannst du dann
If not wsLast is Nothing then wsLast.activate schreiben.
Die Variable "wsLast" musst du in einem Standardmakro oberhalb der Prozeduren deklarieren:
Public wsLast as Worksheet
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Zum letzten verwendeten Tabellenblatt springen

Forumthread: Zum letzten verwendeten Tabellenblatt springen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial