Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren von ActiveCell.Row zu Target

kopieren von ActiveCell.Row zu Target
ActiveCell.Row
Hallo Excelspezis
bräuchte bitte eine passende Anweisung für folgende Problematik
Target.Row , 4 = Cells(ActiveCell.Row,4).Value oder so ähnlich, bzw. richtig eben.
Hier fehlt mir die richtige Definition wie man Target als aktiveZeile,Spalte 4 angibt.
Das ganze soll dann im "BeforeRightClick" Ereignis ablaufen , und soll Folgendes bewirken:
Ich würde gerne das makieren-kopieren-markieren-einfügen automatisieren.
Sprich ich wähle also Spalte 4 ( meine Auswahl Spalte als Bezug ) in irgendeiner Zeile an.
Somit ist diese Zeile oder Zelle in Spalte 4 damit als aktiv gesetzt. Auswahl erfolgte ganz normal per linker Maustaste.
Wenn ich jetzt in eine andere Zeile ( Spalte 4 ) dann aber per Rechtsklick klicke, sollte die Anweisung
die zuvor noch als zuletzt aktive Zeile in die neue mit Rechtsklick gewählte reinkopiert werden.
Wenn mgl. jew aktive Zeile (Spalte 4 bis 8) zu Zielzeile per Rechtsklick ( Spalte 4 - 8)
Kann man das so überhaupt realisieren ? Bräuchte bitte Hilfe hierbei
Lieben Dank im Voraus für alle Tipps
Gruß udo

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
oder vielleicht die Variante ?
26.10.2011 16:47:19
udo
könnte mir es auch mittels 2 mal Rechtsklicken vorstellen.
Dazu Referenzzelle zB A1: in A1 steht dann entweder " " oder "C" für Copy
1. Rechtsklick(RK) in Spalte 4 --- Spalte 4 - 8 aktive Zeile markieren und auf kopieren setzen , sowie in A1 "C" setzen
2. RK in irgend einer anderen Zeile ( Spalte 4 ) --- Wenn A1 = "C" dann in der neuen aktiven Zeile Spalte 4-8 dann einfügen ... anschl. A1 wieder " ".
Das ganze if ... then usw. bekomm ich hin , wo ich mich schwer tue, wie definiert man " von Spalte 4 - 8 der aktiven Zeile"
Ich würde es bestimmt viel zu lang formulieren mit meinen bescheidenen VB Kenntnissen, geht das auch kurz und knackig ;-)
wär euch dankbar
lieben Gruß
Anzeige
oder anders gefragt, wie definiert man denn ...
26.10.2011 17:06:41
udo
Habs mal soweit ich das hinbekomme mal aufgenommen und ...
Steht dann im BeforeRightClick - Ereignis
If [A1] = "" Then
Range("D21:H21").Select ' wie würde denn hier nicht auf Zeile 21 fixiert
' sondern die aktive Zeile Spalte 4 - 8 lauten ?
' hatte da einfach gerade Zeile 21 gewählt ...
Selection.Copy
[A1] = "C"
GoTo weiter:
End If
If [A1] = "C" Then
Cells(ActiveCell.Row, 4).Select
ActiveSheet.Paste
Application.CutCopyMode = False
[A1] = ""
GoTo weiter: ' weiter: ist unterhalb dann als Sprungmarke angegeben ,
' da passieren dann noch andere Dinge ...
End If
Hilfe bitte bei : Range("D21:H21").Select wie würde das ( nicht auf Zeile 21 sondern ) auf ActiveCell.row richtig geschrieben werden
Habt ihr ne Idee ?
Lieben dank
Anzeige
Frage noch offen
26.10.2011 17:08:02
udo
... ( Habs Häckchen vergessen sorry )
kleiner Teilerfolg ...
26.10.2011 17:45:54
udo
... habe es mit Variante 2 mal zum Laufen gebracht
( evt. vom Code her zu umständlich ) naja nach meinen bescheidenen VB Kenntnissen.
Sieht so aus : ( steht also im ... BeforeRightClick ... Ereignis )
Dim R As String,
R = ActiveCell.Row
If [A1] = "" Then
[A1] = "C"
Intersect(Range("D:E,F:G"), Rows(R)).Select
Selection.Copy
GoTo weiter:
End If
If [A1] = "C" Then
[A1] = ""
Cells(R, 4).Select
ActiveSheet.Paste
Application.CutCopyMode = False
GoTo weiter:
End If
weiter:
... usw...
Das funktioniert schon mal, dennoch meine Frage zum Verständnis, liese sich das auch mit einem Rechtsklick realisieren, wie in meiner ursprünglichen Fragestellung beschrieben ?
mit links Zeile ... ( D ) anwählen , und dann per Rechtsklick neue Zeile ... (D) anwählen und dadurch den zuvor aktiven Bereich der mit links angewählt wurde, dann in den neuen mit rechtsklick gewählten reinkopieren - geht sowas überhaupt ?
Sprich kann Excel dies überhaupt auseinanderhalten vom markieren her ?
Vielleicht könnte mir das mal Jemand noch kurz umschrieben ,wär Euch dankbar , interessiert mich sehr.
Lieben Dank im Voraus
Gruß udo
Anzeige
Rightclick + Doubleklick
27.10.2011 07:46:18
Marc
Guten Morgen!
Versuch mal folgendes:
Gruß, Marc
Public aktiveZelle

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
aktiveZelle = ActiveCell.Row
Cancel = True
End Sub



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Range("D" & aktiveZelle & ":H" & aktiveZelle).Copy Range(Target.Address)
Cancel = True
End Sub

AW: Rightclick + Doubleklick
27.10.2011 10:22:49
udo
Hallo Marc ,
Herzlichen Dank für dein Tipp, hab ihn grad mal schnell eingebaut und entspr. angewiesen / deklariert
aber irgendwie wills noch nicht ... hmmm ? Muss später mal schauen wo's evt. kollidiert bei mir ....
Mir fehlt heute Morgen leider grad die Zeit , werds mir aber später nochmals genauer anschauen und mich dann rückmelden ...
Auf alle Fälle schon mal vorab großen Dank
und beste Grüße
Udo
Anzeige

62 Forumthreads zu ähnlichen Themen

ActiveSheet.Cells(ActiveCell.row, 243).Activate ??
Mathias

Hallo,
folgende Zeile führt bei mir dazu, dass die aktive Zelle außerhalb des Bildschirms liegt:
ActiveSheet.Cells(ActiveCell.row, 243).Activate
Verwende ich dagegen:
ActiveSheet.Cells(ActiveCell.row, 242).Activate
dann scrollt die Tabelle nach rechts bis Spalte 242 und die...
08.10.2008 20:14:00
Thread-ID: 1015161
18 Beiträge
Anzeige
ActiveCell.Offset(0, 1).Value
Franz

Hallo Leute,
vermutlich eine blöde Frage, aber ich komme nicht auf die Lösung.
Wie kann ich den Inhalt von ActiveCell.Offset(0, 1).Value ---- es ist ein Datum ---- um 1 Tag bzw.
1 Monat erhöhen. Rechne ich + 1, so erhöht sich das Jahr.
Grummel, grummel....
Danke für die Hilf...
20.06.2009 17:19:12
Thread-ID: 1083105
3 Beiträge
Set rngOld = ActiveCell in Row ändern möglich?
Karsten

Hallo,
ich möchte einen Befehl abändern.
Dim rngOld As Range
Set rngOld = ActiveCell
Range("a10").Select
rngOld.Select
End Sub
Er soll jetzt so ausgeführt werden, dass nicht die alte Zelle sondern in der alten Zeile die Zelle in der 10 Spalte angesteuert wird. Geht...
27.07.2009 17:08:37
Thread-ID: 1091676
11 Beiträge
Anzeige
Range.Address und ActiveCell.Offset
Urmila

Hallo zusammen,
ich habe ein Problem, und zwar...versuche ich einen Range.Address in Cells umzuwandeln, also durch den Makro bekomme ich z.B. $A$14, diese würde ich gerne in Cells(1, 14) umwandeln, oder ihr könnt mir eine Alternative vorschlagen......
Ich habe einen Code der mir die "ro...
10.09.2010 07:19:06
Thread-ID: 1176758
3 Beiträge
Offset - ActiveCell
Philipp

Hi!Bitte um eure Hilfe:
Ich muss aus der Quelltabelle einen Wert auslesen, diesen dann in eine andere Tabelle eintragen (der Teil läuft OK), dann in der Quelltabelle die ActiveCell eine Zeile nach unten verschieben, diese neue ActiveCell kopieren, zur Zieltabelle wechseln, ... einfügen, ......
16.05.2002 15:01:37
Thread-ID: 121392
2 Beiträge
ActiveCell.offset Bug, Combobox range
Max

Hallo liebe Com,
Ich arbeite seit geraumer Zeit mit Excel und Vba.
Zurzeit bin ich in einen kleinen Projekt mit dem ich einen "Generator" schreibe.
Hier zuerst einmal ein paar Bilder und Daten.
http://i51.tinypic.com/33cu2kp.jpg
ist die Userform
http://i53.tinypic.com/r7...
22.06.2011 21:54:31
Thread-ID: 1219374
10 Beiträge
ActiveCell.Row ( Spalte dann von : bis ) ?
:

Hallo Forum,
bräuchte bitte eure Hilfe bei einer VB Anweisung
ich möchte gerne an irgendeiner Stelle meiner ganzen Anweisungen folgendes anweisen
Bei der aktiven gewählten Zeile soll dann Spalte 2 bis 9 leer sein ( ="" ) ( .clearcontent ? )
habe folgendes probiert : ' Cells(Act...
20.10.2011 10:31:33
Thread-ID: 1234656
4 Beiträge
ActiveCell.Row - mehrere Zeilen anwählen
Frischy1990

Guten Tag,
in meinem Makro habe ich aktuell folgenden Befehl:
lngRow = ActiveCell.Row
Das Ziel dabei ist, dass ich eine Zelle anwähle und alle Werte die in dieser Reihe stehen in eine andere Tabelle kopiert werden.
Wenn ich nun jedoch mehrere Zellen in unterschiedlichen Reihen...
20.06.2012 09:54:19
Thread-ID: 1268074
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
17
5
2
10
2
2
1
9
3
10
3
27
12
7
9
3
5
3
10
2
5
5
2
3
2