Zum letzten verwendeten Tabellenblatt springen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Private Sub CommandButton1_Click() Dim Zeile As Long Dim iActSheet As Integer iActSheet = ActiveSheet.Index ' Dein Kopiercode, was immer der auch macht, ich hab ihn nicht analysiert, ist mir zu komplex... ThisWorkbook.Sheets(iActSheet).Activate End Sub

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

Beliebteste Forumthreads (12 Monate)

Zum letzten verwendeten Tabellenblatt springen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

20 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zum letzten verwendeten Tabellenblatt springen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

20 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread