Office: (Office 2019) VBA - Leere Zeile im Bereich finden und beschreiben

Hallo,
Ich bin noch Neu hier und finde leider seit ein paar Tagen keine Lösung im Netz für mein Problem. Muss auch dazu sagen das ich auch neu mit Makro anfange.
Vielleicht könnt Ihr mir helfen.

Ich möchte in einen bestimmten Bereich (D10:D30) die erste leere Zeile finden und ein vorgegebenes Wort (ersetzen) einfügen. Ich habe nur einen Code gefunden der die letzte Zeile beschreibt im kompletten Bereich D, dadurch das ab D31 bei mir etwas steht wird mit diesen Code dadrunter beschrieben.

Cells(Cells(Rows.Count, "D").End(xlUp).Row + 1, "D").Value = "ersetzen"

und als zweites müsste wieder in den Bereich (E10:E30) die erste leere Zeile ermittelt werden und dort dann das eingefügt werden was in der Zeile M11 steht.

Worksheets("IF").Range("M11").Copy
Worksheets("IF").Cells(Rows.Count, "E").End(xlUp).Offset(1).PasteSpecial _
Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True


Vielen Dank im Voraus

 

Hi,

die End-Eigenschaft kennt alle Himmelsrichtungen:

Range("D10").End(xlDown).Offset(-1).Value = "ersetzen"

Range("E10").End(xlDown).Offset(-1).Value = Range("M11").Value

 

Danke für die schnelle Antwort,

leider fängt er jetzt unten bei der letzten an und beschreibt nach oben.
Vielleicht habe ich das falsch erklärt.

D10 - ab hier solle er anfangen zu schreiben, nach unten hin
D11 -
..
D14 -
..
D31 ist beschrieben


Danke

 

Moin Plisno,

Dein Titel und die verwendeten Formeln deuten auf ein durchgehende vorhandene Kist in Spalte D hin. Dein letzter Post aber sagt, dass eigentlich in eine Lücke vor D31 schreiben willst. Korrekt?

Dann wirst Du mit den üblichen Formeln nicht weit kommen. Dir bleiben aber zwei weitere Möglichkeiten:

Du codierst die Zieladresse fest in eine Schleife und nutzt den Schleifenzähler um den Wert der Zeile nach jedem Schreibvorgang um 1 hochzusetzen

Code:

Option Explicit

Sub Version()
Dim i As Integer
For i = 11 To 14    'schreibt in die Zeilen 11-14 in Spalte D
    Cells(i, 5) = "Dein neuer Wert"
Next
End Sub

Alternativ suchst in einem definierten Bereich wieder per Schleife nach der ersten freien Zelle

Code:

Sub Version()
Dim i As Integer
For i = 1 To 31    'sucht in den Zeilen 1-31 in Spalte D
    If Cells(i,5) = "" Then
        Cells(i, 5) = "Dein neuer Wert"
    End If
Next
End Sub

Diese Version wäre z.B. die Lösung für Deine Spalte E. "Deine neuer Wert" ersetzt Du dann durch cells(11,13)

Zur Erläuterung: Du findest im Code keine Zelladressen wie D11 oder $M$31, weil ich die Schreibweise cells(Zeile, Spalte) verwende. Die hat den Vorteil, dass man sie leicht in numerischen Schleifen anwenden kann. Nachteil: man muss umdenken: z.B für B1 denkt man in alter Gewohnheit gerne an cells(2,1). Tatsächlich wäre das die Zelle A2. Der erste Werte ist die Zeile.

Grüße

 

Danke, aber jetzt schreibt er in alle leere Zeilen rein. Ich versuche das nochmal richtig zu beschreiben.

D10 - ab hier sollte er anfangen zu schreiben, nach unten hin, bei erster betätigung kommt hier dann "ersetzen"
D11 - "ersetzen" beim nächsten betätigen hier
D12 - "ersetzen" beim nächsten betätigen hier
.. usw....
D14 -
..
D31 ist beschrieben

DANKE

 

Hallo,

versuche den folgenden VBA-Code:

Code:

Option Explicit

Public Sub ttt()
 
  On Error Resume Next
  [D10:D30].SpecialCells(xlCellTypeBlanks).Cells(1).Value = "ersetzen"
  [E10:E30].SpecialCells(xlCellTypeBlanks).Cells(1).Value = [M11]
  On Error GoTo 0
 
End Sub

 

Vielen Dank "Exl121150",

genau das habe ich gesucht.