Spalte durchsuchen und Eintrag übernehmen ...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim R As String, X As Long R = ActiveCell.Row If Target.Row > 8 And Target.Column = 9 Then For X = R To 9 Step -1 If Cells(X, 9) "" Then Cells(R, 8).Value = Cells(X, 8).Value Cells(R, 9).Value = Cells(X, 9).Value Exit For End If Next Cancel = True 'Popup Fenster nach Rechtsklick - deaktiviert End If End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim R As String, X As Long R = ActiveCell.Row If Target.Row > 8 And Target.Column = 9 Then For X = R To 9 Step -1 If Cells(X, 9) "" Then If Target.Value Cells(X, 9).Value Then Cells(R, 8).Value = Cells(X, 8).Value Cells(R, 9).Value = Cells(X, 9).Value Exit For End If End If Next Cancel = True 'Popup Fenster nach Rechtsklick - deaktiviert End If End Sub

Hallo
Als Erstes:
Dein Beitrag in der 2.Baumstruktur mit Deiner 2. hochgeladenen Datei.

Zitat:
If Cells(X, 9) "" Then
hab ich mal
If Cells(X, 9) Cells(R, 9) Then eingesetzt, jetzt würde es schon fast gehen

Du widersprichst Dir selbst! Du hattest in der Ausgangsfrage geschrieben:
Zitat:
in der rechten Spalte ( I9:I ... ) soll per Rechtsklick ( in entspr, Ereignis mit Before Right Klick etc. )
eine Anweisung - die angewählte Zelle in Spalte I (9) soll dann automatisch mit dem nächstfolgenden Eintrag
( leere Zellen ignorierend ) dann den drüber folgenden Eintrag hineinkopieren.
Habe dafür folgenden Code in Verwendung....
Zitat Ende

Wenn Du den Code dahingehend änderst und nicht abfragst, ob der Zellinhalt leer ist, dann wird eine bereits gefüllte Zelle allerding auch wieder geleert(was Du eigentlich verhindern wollstest), sofern eine Zelle oberhalb derer steht, welche im Target ist.
Du könntest also die Variable X als Public deklarieren, dann speichert Excel den Inhalt der Variable
Wenn Du nun einen 2. Doppelklick auf der Zelle ausführst, dann startest Du die Schleife eben erst bei X
Beim Verlassen der entsprechenden Spalte löschst Du den Inhalt der Variablen wieder.
Aber:
was soll denn passieren, wenn z.B. der letzte Wert eingetragen wurde und Du nochmal doppelklickst?
Gruß Matthias

Hi Matthias,
wirklich großen Dank an dich, ich hab mich best. zu unverständlich ausgedrückt musst bitte entschuldigen.
Und gleich vorne weg, meine Kenntnisse in VB sind da teilw. sehr " bescheiden " , je nach dem.
Bin da teils einfach am probieren ... mit den ganzen Deklarationen kenn ich mich auch nur bedingt aus.
' "x als Public" sagt mir leider gar nichts ... Neuland
Also klar , grundsätzlich soll er leere Zeilen ( wenn da mal die eine oder andere hochwärts drinne erscheint ) , diese dann ignorieren , egal ob die sozusagen als Trennung zwischen dem einen zum anderen Wert steht, oder auch mal in einer Anzahl gleicher Einträge untereinander, da dann zwischen drinn mal eine leere Zeile wäre.
Also Leer generell ignorieren bitte .
Und dann eigentl. dort an der Stelle der Spalte zB. Zeile 153 ... egal, nimmt er die dann als Target ...
und ab jetzt soll die Prozedur dann per " Rechtsklick " dann verfüg bar sein,
Angenommen in der gesamten Spalte 9 würden sich zB. insges. 20 versch. Einträge befinden, die nicht sortiert sind, teils Zahlen , teils Buchstaben , völlig egal, einfach von den Zellwerten her gesehen 20 versch. Einträge, dann würde ab der Zeile wo ich einsteige immer hochwärts pro Rechtsklick immer der nächste Wert übernommen werden, ...
Sprich wenn ich an meiner Target Stelle ( zB zeile 153 ) hochzus den vierten untersch. Eintrag haben wollte, würd ich nun an der Target zellen 4x hintereinander Rechtsklicken
oder eben so oft, bis dann der gew. Eintrag drinne stünde, das ganze würde sich ja eh denke ich selbst abschalten, wenn er bei seiner Suche im Suchbereich Target.Row "größer als" 8
nichts mehr unterschiedl. findet .
Hoffe ich konnte mich verständl. ausdrücken, wie gesagt, musst entschuldigen, setzt bitte nicht zu hohe Ausgangskenntnisse an mich. sind eher bescheiden
Dank dir dennoch sehr für deine Hilfe
Lieben Gruß udo

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) ' Deklaration Dim R As String R = ActiveCell.Row ' letzten Eintrag oberhalb suchen Range(Cells(R, 9).Address).End(xlUp).Copy If Target.Value = "" Then With Cells(R, 9) ActiveSheet.Paste Application.CutCopyMode = False End With End If If Target.Value "" Then ' xxxxxx hier fehlt mir eine Anweisung die zwar die oberhalb nächsten Eintrag findet, _ ' xxxxxx aber eben in Abhängigkeit zum bereits in der aktiven Zelle stehenden ' xxxxxx sprich den nächsten abweichenden soll er dann übernehmen ... End If ' Popup Fenster nach Rechtsklick unterbinden Cancel = True End Sub

Beliebteste Forumthreads (12 Monate)

Spalte durchsuchen und Eintrag übernehmen ...

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalte durchsuchen und Eintrag übernehmen ...

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread