Activecell bei mehreren Blättern

Hallo Wissende,
Frage1:
kann man, ohne alle Blätter zu durchlaufen, direkt die Activecell eines Blattes ermitteln?
Alle meine diesbezüglichen Versuche schlugen fehl.
Frage2:
In einem anderen Forum will ich jemand helfen. Und an sich dachte ich ich krieg das hin :-(
Jetzt hänge ich unerwartet an einem Punkt fest. Wenn der überwunden ist mit eurer Hilfe bin ich zuversichtlich die gesamte problematik zu lösen.
Ich habe jetzt das Problem redudiziert auf Folgendes. Durch eine Schaltfläche soll ein makro gestartet werden, daß den Inhalt der gerade aktiven Zelle in die durch die InputBox gewählte Zelle verschiebt.
Dies soll aber in zwei Blättern gleichzeitig geschehen.
Daran hänge ich fest, seit sehr langer Zeit *fluch*
Nach vielen Codes ist das nun der aktuelle Code der nicht klappt, was mache ich da falsch?

Sub Makro1()
Dim rngBereich As Range, strMerker As String
strMerker = ActiveCell.Address
Set rngBereich = Application.InputBox("Wo soll eingefügt werden?", "Zelle wählen", Type:=8)
MsgBox rngBereich.Address
Worksheets("Tabelle1").Range(strMerker).Cut Destination:=Worksheets("Tabelle1").Range( _
rngBereich.Address)
Worksheets("Tabelle2").Range(strMerker).Cut Destination:=Worksheets("Tabelle2").Range( _
rngBereich.Address)
End Sub

Danke ^ Gruß
Reinhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Makro2() Dim rngBereich As Range, strMerker As String, strDestination As String strMerker = ActiveCell.Address On Error Resume Next Set rngBereich = Application.InputBox("Wo soll eingefügt werden?", "Zelle wählen", Type:=8) On Error GoTo 0 If rngBereich Is Nothing Then Exit Sub MsgBox rngBereich.Address strDestination = rngBereich.Address(external:=False) Worksheets("Tabelle1").Range(strMerker).Cut Destination:=Worksheets("Tabelle1").Range( _ strDestination) Worksheets("Tabelle2").Range(strMerker).Cut Destination:=Worksheets("Tabelle2").Range( _ strDestination) End Sub

Hallo
Zu 1)

kann man, ohne alle Blätter zu durchlaufen, direkt die Activecell eines Blattes ermitteln?

Das funzt m.W. nicht. Eine Mappe hat immer nur eine ActiveCell. Diese befindet sich in der aktiven Tabelle. Du wirst also nicht darum herum kommen, alle Blätter zu durchlaufen.
Zu 2)
Versuch mal so: Sub Makro1()
Dim rngBereich As String, strMerker As String
strMerker = ActiveCell.Address
rngBereich = Application.InputBox("Wo soll eingefügt werden?", "Zelle wählen")
MsgBox rngBereich
Worksheets("Tabelle1").Range(strMerker).Cut Destination:=Worksheets("Tabelle1").Range(rngBereich)
Worksheets("Tabelle2").Range(strMerker).Cut Destination:=Worksheets("Tabelle2").Range(rngBereich)
End Sub
Gruß aus dem Sauerland
Jens

Sub tt() Dim s As Integer Dim i As Integer Application.ScreenUpdating = False s = Application.Sheets.Count For i = 1 To s Sheets("Tabelle" & i).Select MsgBox Sheets("Tabelle" & i).Name & "-" & ActiveCell.Address Next Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Activecell bei mehreren Blättern

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Activecell bei mehreren Blättern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread