Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1704to1708

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

In einer identifizierten Zeile freie Zelle finden

Forumthread: In einer identifizierten Zeile freie Zelle finden
4 Beiträge zu diesem Forumthread
Anzeige
302 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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

4
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
AW: In einer identifizierten Zeile freie Zelle finden

06.08.2019 17:11:24

Daniel
AW: In einer identifizierten Zeile freie Zelle finden

07.08.2019 08:26:31

Felix
AW: In einer identifizierten Zeile freie Zelle finden

09.08.2019 09:58:55

Daniel

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