vba - letzte Spalte suchen | HERBERS Excel Forum

Guten Morgen lieber Helfer,
ich hätte eine kurze Bitte ... ich versuche an einem best. Punkt meiner
Anweisungen im BeforeRightClick Ereignis einen Wert in einer Zelle einzutragen.
Bedingung er fängt irgendwann mal an in Spalte 23 wenn diese noch leer ist.
alle Spalten rechts weg sind dann auch noch leer.
wenn nun dann wieder das gleiche Ereignis wieder greift ( sprich beim nächsten Rechtsklick ) soll er nun in die nächste freie Spalte den Wert aus Spalte 20 dann eintragen, dies wäre dann also in Spalte 24, bei weiterem RK wäre es dann in Sp.25, dann Sp.26 usw. immer von Spalte 23 beginnend nach rechts die nächste leere Spalte und da dann immer den Wert aus Spalte 20 eintragen.
Ich hab da mal so angefangen, allerdings is da scheins ein Fehler drin :
R habe ich mit ActiveCell.Row bestimmt ...
If Cells(R, 23) = "" Then Cells(R, 23) = Cells(R, 20).Value
If Cells(R, 23) "" Then Cells(R, 23).End(xlToRight).Column 1 = Cells(R, 20).Value
sieht Jemand von Euch da evtl, was ich falsch schreibe ?
Wäre Euch um eure Hilfe sehr dankbar, schon mal lieben Dank im Voraus
LG Udo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Udo,
wie du schon gemerkt hast funktioniert .End(xl.....) zur Ansteuerung von Zellen ggf. nicht korrekt wenn Zeilen/Spalten ausgeblendet sind.
In diesem Fall muss man in einer Schleife prüfen ob die relevanten Zellen in der Zeile schon ausgefüllt sind und in der 1. leeren Zelle den Wert eintragen.
Gruß
Franz

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim R As Long, Spalte As Long
Select Case Target.Column
Case 19 'bei Click in dieser/diesen Spalten Aktion ausführen - ggf. anpassen
If Target.Row > 1 Then 'Zeilennummer ggf. anpassen
Cancel = True 'wenn Rechte-Maus-Menü nicht eingeblendet werden soll
Spalte = 23
R = Target.Row 'statt ActiveCell.Row '(empfehlenswert)
Do Until IsEmpty(Cells(R, Spalte))
If Spalte = Columns.Count Then 'letzte Spalte im Blatt ist ausgefüllt
MsgBox "Alle Spalten in Zeile " & R & " sind ausgefüllt!"
Exit Sub
End If
Spalte = Spalte + 1
Loop
Application.EnableEvents = False 'Ist ggf. wichtig, wenn auch das _
Worksheet_Change-Ereignis im Tabellen-Code-Modul verwendet wird.
Cells(R, Spalte) = Cells(R, 20)
Application.EnableEvents = True
End If
End Select
End Sub

If Cells(R, 23) = "" Then Cells(R, 23) = Cells(R, 20).Value ElseIf Cells(R, 24) = "" Then Cells(R, 24) = Cells(R, 20).Value Else Cells(R, 23).End(xlToRight).Offset(0, 1).value = Cells(R, 20).Value Ende If

Beliebteste Forumthreads (12 Monate)

vba - letzte Spalte suchen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

vba - letzte Spalte suchen

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

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread