Office: (Office 2019) leere Zelle in Zeile finden

Hallo Liebe Excel Profis,
ich bin noch recht unbedarft was VBA angeht. Man kopiert und liest und bastelt und versucht alles zu verstehen. Aber irgendwann kommt man nicht weiter.

Ich habe eine Tabelle, wo in Spalte J kontrolliert wird wann der Wert >0 ist.
Daraufhin wird dann der Code mdlUrlaubstag ausgeführt, wo in der betroffenen Zeile geschaut wird wo die letzte leere Zelle ist, um dort was einzutragen. In der angehängten Datei habe ich es in Zeile 9 vorbereitet. Ändert man in Spalte E die 60 auf 61, wird ausgelöst und er schreibt in Spalte W rein anstatt O oder Q.
Also der Code schreibt immer nur hinten ran. Es kommt öfters vor, das vorne was frei wird, und dort soll reingeschrieben werden bevor er wieder hinten weiter macht. Ist das möglich?

Schöne Grüße
Stefan

 

Hallo Stefan,

LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 10)), Cells(Rows.Count, 10).End(xlUp).Row, Rows.Count)

 

Hallo Stefan,

ich habe mir mal deine Datei angeschaut. Willst du damit tatsächlich arbeiten?
Es ist ja ohne Probleme möglich und auch so von dir eingetragen, dass für eine Person ein Urlaubtag mehrfach vorkommt.
So was lässt sich doch nicht sinnvoll weiterverarbeiten.
Ich würde wie folgt vorgehen:

Lege eine ganz einfache Tabelle an (am besten eine formatierte Tabelle - Listobjekt), in welcher Zeile für Zeile jeweils der Name / Erster Urlaubstag / letzter Urlaubstag / Datum- Zeitstempel des Eintrags anlegt wird.

Daraus kann man dann die nötigen Abfragen per Filter bis hin zu kalendarischen Ausgaben mit wenig Aufwand erschlagen.
Dabei würde ich und sicher auch andere Helfer dir behilflich sein.

@Hajo,
Der TO möchte in Zeile sowieso prüfen, wo ab Spalte M bis Spalte AF die erste leere Zelle zu finden ist.

Gruß Uwe

 

Hallo Zusammen
erstmal vielen Dank für die Antworten.
@Hajo,
Danke für die Formel, aber das ist leider nicht das was ich suche. Ich suche die letzte Spalte im Bereich M:AF für eine bestimmte Zeile.

@Uwe,
Danke fürs Anschauen der Datei. Ja die VBA ist in euren Augen echt laienhaft geschrieben. O:-)Zum Verständnis für euch, warum ich die so aufgebaut habe, versuche ich das mal zu erklären.
Zu erstmal arbeite ich nicht damit sondern 7 Verschiedene Personen die froh sind eine Maus und das Keyboard bedienen zu können. Also dachte ich mir ich erstelle die Tabelle so einfach wie möglich. ala "Ihr habt da 2 Mausklicks und eine Eingabe, dann klicke hier und klicke da und fertig"
Ich arbeiten in Abfolge einer Listenordnung. d.h. Die Erste Nummer wird zur Arbeit geschickt die anderen rücken nach. In der Liste gibt es Personen die arbeitstechnisch beschränkt sind. Sie dürfen nicht jeden Job machen weil die Erfahrung noch nicht ausreicht und solche die alles Abarbeiten können. Durch diese Dinge überspringen die Vollarbeiter die Eingeschränkten.
Die Datei soll helfen die übersprungenen Nr. festzuhalten. Wer 60 Nummern in Summe übersprungen hat, bekommt einen Tag Extraurlaub, der dann mit Datumsstempel festgehalten wird. Damit der Tag auch wieder gelöscht werden kann ohne den Blattschutz zu entfernen und ggf. die hinterlegten Formeln zu zerschießen, habe ich die Auswertungstabelle erstellt.
Die Datei funktioniert soweit ganz gut und die 7 Mitarbeiterinnen und Mitarbeiter kommen gut damit zurecht.

Deshalb möchte ich Deiner Idee, auch wenn es die einfachere Lösung wäre, nicht nachgehen. Ich glaube dann müsste ich dazu noch eine Schulung ausarbeiten damit die zuvor genannten Personen sicher damit umgehen könnten. :-X
Aber trotzdem Danke.

Und Dein Kommentar an Hajo ist wohl genau das was ich suche. :-D

Schöne Grüße
Stefan

 

Hallo Stefan

gesamte Tabelle
InSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
für zeile
LoLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column,
Zeile anpassen.

Gruß Hajo

 

Hallo Stefan,

dass der Code laienhaft ist, habe ich auch weder geschrieben noch gedacht und war auch nicht das Ziel meiner Betrachtung.
Aber dafür der tabellarische Aufbau.
Was nicht lang dauern wird bis es zum Problemen kommt ist eben dieser Tabellenaufbau.
Aber sei es drum, dass musst du selbst wissen, was für dich/euch die praktikabelste Lösung ist.
Was du suchst ist dies (Pseudocode):

Code:

Sub LeeresZellenpaarFinden()
    Dim i&, iZeile&
    iZeile = 9  ' dieser Variable übergibst du die benötigte Zeilennummer
    With Tabelle1
        For i = 13 To 31 Step 2
            If .Cells(iZeile, i) = "" And .Cells(iZeile, i + 1) = "" Then
                MsgBox " Das Zellenpaar in Zeile " & iZeile & ": " & Replace(.Cells(iZeile, i).Address, "$", "") & " und " & Replace(.Cells(iZeile, i + 1).Address, "$", "") & " ist das 1. freie Zellenpaar."
                ' .Cells(iZeile, i)=Zahl für U-Tage
                ' .Cells(iZeile, i)=Datum
                Exit For
            End If
        Next i
    End With
End Sub

Diese Schleife kannst du dir passend bauen. Das Codebeispiel sucht in Zeile 9 das 1. leere Zellenpaar im Bereich ab Spalte M bis Spalte AF und gibt dir in einer Messagebox die Zelladressen aus.

Gruß Uwe

 

Hallo Uwe,
Das mit dem laienhaft war nicht gegen Dich. Es sollte nur mein Nichtwissen zum Ausdruck bringen.
Könntest Du mir bitte deine Aussage erklären, was Du damit meinst.

Ich sehe da keine Probleme für die Zukunft. Oder meinst Du, weil die Einträge auf 10 begrenzt sind?

So, nun aber zum Besten Abschnitt Deiner Antwort, Der Code.
Er funktioniert echt super, hab vielen vielen Dank, Uwe.
Ich musste den Code noch etwas anpassen, um die Zeilennummer dynamisch zu ermitteln.
einfach spitze "BEIDE Daumen nach OBEN"

So sieht er jetzt aus

Code:

Sub Urlaubstag()
Dim Z As Long, lZ As Long
Dim i&, iZeile&

' Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'ActiveSheet.Unprotect ("123")

  ' Urlaubstag 1 suchen
lZ = [J213].End(xlUp).Row
For Z = 5 To lZ

' wenn Urlaubstag 1 gefunden dann in die Übersicht kopieren
If UCase(Cells(Z, 10)) = "1" Then
 
    iZeile = Z ' dieser Variable übergibst du die benötigte Zeilennummer
    With Sheets("üNr")
        For i = 13 To 31 Step 2
            If .Cells(iZeile, i) = "" And .Cells(iZeile, i + 1) = "" Then
                MsgBox " Das Zellenpaar in Zeile " & iZeile & ": " & Replace(.Cells(iZeile, i).Address, "$", "") & " und " & Replace(.Cells(iZeile, i + 1).Address, "$", "") & " ist das 1. freie Zellenpaar."
                 .Cells(iZeile, i) = "1"
                 .Cells(iZeile, i + 1) = Format(Date, "DD.MM.YY")
                Exit For
            End If
        Next i
    End With
Else
End If
Next

    Range("K5:K213").Select
    Selection.Copy
   
    Range("L5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Application.CutCopyMode = False
    Range("C5:E1000").ClearContents
    Range("C5").Select

'ActiveSheet.Protect ("123")

' Bildschirmaktualisierung einschalten
Application.ScreenUpdating = True

End Sub

Schöne Grüße
Stefan

 

Hallo Hajo,
Vielen Dank auch für Deine Mühen. Ich glaube ich werde mal schauen ob ich Deinen Code auch verarbeitet kriege.

schöne Grüße
Stefan