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