In einer identifizierten Zeile freie Zelle finden

Forumthread: In einer identifizierten Zeile freie Zelle finden

06.08.2019 16:44:23

Felix

Hallo zusammen,
ich versuche gerade krampfhaft in einer Zeile die ich über eine Zurordnung treffe, unter Umständen in die ersten freie Zelle der Zeile einen bestimmten Wert eintrage. Leider klappt es nicht. Vllt hat ja jemand eine Ergänzung für meinen Code


If L16 = True Then
Application.Goto Reference:=Worksheets("Bewegungen").Range("A1"), Scroll:=True
Do Until ActiveCell.Value = ""
If ActiveCell.Value = YourValue Then
ActiveCell.End(x1ToRight).Offset(0, 1) = "ASDF"
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Else
End If

Schon vorab vielen Dank für die Hilfe
Grüße Felix

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: In einer identifizierten Zeile freie Zelle finden

06.08.2019 16:51:10

Hajo_Zi

für Zeile 1
LoLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count)
Cells(1,loletzte+1)="Eintrag"
Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de
Der Cursor ist kein Hund, der überall rum geführt werden muss.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.

AW: In einer identifizierten Zeile freie Zelle finden

06.08.2019 17:11:24

Daniel

HI
das ActiveCell.Offset(1, 0).Select darf nicht im ELSE-Teil des IF-Blocks stehen, sondern muss außerhalb stehen.
denn du willst ja auch dann eine Zeile weiter wandern, wenn der Zellwert gleich YourValue war.
Gruß Daniel

AW: In einer identifizierten Zeile freie Zelle finden

07.08.2019 08:26:31

Felix

Hi, ne ich brauche dann nicht weitergehen. Es gibt jede "Artikelnummer" nur genau einmal in dem Projekt. Also wenn Excel de Zeile gefunden hat dann muss er nur etwas dazuschreiben und dann ist das Ganze fertig

AW: In einer identifizierten Zeile freie Zelle finden

09.08.2019 09:58:55

Daniel

dann muss in diesen IF-Teil aber aber auch der Befehl, die Schleife zu beenden: EXIT DO
ansonsten fängst du dich ja in einer Endlosschleife.
wenn sich jede Artikelnummer nur 1x in der Spalte A befindet, arbeitest du besser mit .FIND:

Dim Zelle as Range
set Zelle = Worksheets("Bewegungen").Columns(1).Find(What:=YourValue, lookat:=xlwhole)
if Zelle not Zelle is Nothing then
if Zelle.Offset(0, 1).Value  "" then set Zelle = Zelle.end(xltoright)
Zelle.Offset(0, 1).Value = "ASDF"
end if

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

In einer identifizierten Zeile freie Zelle finden

Forumthread: In einer identifizierten Zeile freie Zelle finden

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

In einer identifizierten Zeile freie Zelle finden

Forumthread: In einer identifizierten Zeile freie Zelle finden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread