Registriert seit: 05.09.2017
Version(en): 2007
Hallo,
ich frag mich ob es möglich ist die aktive Zeile in eine andere Zeile zu spiegeln.?.
Beispiel: Tabelle, die ersten 10 Zeilen Fixiert. Wenn ich nun in der Tabelle auf eine Zelle "klicke" soll im Fixierten Bereich die zugehörige Zeile angezeigt werden. Geht das?
Gruß
DaNCeLikEShiVa
Registriert seit: 28.05.2014
Version(en): 2013 / 2016
Ja das geht -> mit VBA.
Beste Grüße
Günther
Excel-ist-sexy.de …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Registriert seit: 05.09.2017
Version(en): 2007
Hallo Günther,
danke für die Antwort, könntest Du mir sagen wie bzw. den VBA Code zukommen lassen?
Gruß
DaNCeLikEShiVa
Registriert seit: 28.05.2014
Version(en): 2013 / 2016
Moin Moin,
ich gehe davon aus, dass dir jemand diesen kurzen Code schreiben wird. Du hast dazu aber auch eine PM von mir ...
Beste Grüße
Günther
Excel-ist-sexy.de …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
das könntest Du z.B. so lösen - der Code kopiert Dir die Werte nach Zeile 10:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 11 Then Exit Sub
ActiveCell.EntireRow.Copy
Range("A10").PasteSpecial Paste:=xlPasteValues,
Application.CutCopyMode = False
End Sub
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 05.09.2017
Version(en): 2007
11.09.2017, 10:05
(Dieser Beitrag wurde zuletzt bearbeitet: 11.09.2017, 10:05 von DaNCeLikEShiVa.)
Hallo André,
danke für Deine Antwort.
Wenn ich den Code so benutze meckert VB schon beim Einfügen rum "
Fehler beim Kompilieren - Erwartet: Benannter Parameter".
Was mache ich Falsch?
Gruß
DaNCeLikEShiVa
//EDIT:
Ich habe es hinbekommen, nochmals Danke.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 11 Then Exit Sub
ActiveCell.EntireRow.Copy
Range("A8").PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub