Office: Erste leere Zelle in einem bestimmten Bereich

Hallo,

ich brauche mal eure Hilfe.

Ich will die erste leere Zelle im Bereich B4: D6 (also die Zellen B4,B5,B6,C4,C5,C6,D4,D5,D6) auswählen.

Habe es schon so probiert

Dim rgBereich As Range

Set rgBereich = Range("B4: D6")

rgBereich.Cells(1, 1).End(xlDown).Offset(1, 0).Select


Das geht aber nicht, weil er in dem fall die erste freie Zelle in Spalte B (in meiner Tabelle B20) auswählt.

Hat jemand eine Lösung für mich?

Gruß TR0jA

:)

 

Moin,

zum Beispiel so: Code:

 

Hi,

Code:

 

Hallo Troja,

willst Du das zeilen- oder spaltenweise auswerten?

Beispiel:
B4: Nicht leer
C4: leer
B5: leer
Welche Zelle soll es also sein?

Code:

Grüße
EarlFred

 

Ich danke für die schnellen Antworten.

Der Code von Günther funktioniert einwandfrei.

Nochmals vielen Dank.

Gruß
TR0jA

 

Dein Problem ist gelöst - dennoch wäre es nicht schlecht zu erfahren, was bei den anderen beiden Codes nicht funktioniert, insbesondere da auch andere Fragesteller diesen Thread lesen.

 

Die beiden anderen Codes funktionieren auch. Aber da ich die Msgboxen nicht benötige, habe ich den ersten Code verwendet.

Es hat sich aber leider ein neues Problem aufgetan.
Nachdem die Zelle aktiviert wurde soll darin ein der Text aus der Tabelle 1 Zelle A1 stehen. Das ist nicht das Problem. Allerdings schreibt er mir bei jedem ausführen den Inhalt von A1 in die nächste freie Zelle.
Ich benötige eine Abfrage die es verhindet, das es in dem Bereich mehrere Zellen mit gleichem Inhalt gibt.
Ich habe es schon mit GoTo versucht das klappt aber nicht.



Option Explicit

Sub ErsteFreieZelle() 'by GMG-CC
Dim rngBereich As Range, c As Range
Set rngBereich = Range("B4: D6")
For Each c In rngBereich
If c.Text = Tabelle1.Cells (1 , 1).Text Then
????????????
ElseIf IsEmpty(c) Or c = "" Then
c.Select
Exit For
End If
Next c
ActiveCell.Value = Tabelle1.Cells (1 , 1).Text
End Sub


Gruß TR0jA