Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suche nach leeren Zellen

Suche nach leeren Zellen
10.04.2003 13:59:32
Bob
Hallo Programmierbegabte,

mein Problem stellt sich so dar: In dem Tabellenblatt2 sollen die Spalten B und C so lange durchsucht werden bis beide Spalten gleichzeitig eine leere Zelle aufweisen, dann soll aus Tabellenblatt1!C9 der Wert in Tabellenblatt2!SpalteA!ZeileX(Schleifenende) übernommen werden.

Danke schon mal für eure Bemühungen (erfolgreich oder nicht)!

Schönen Tag noch,
Bob

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Suche nach leeren Zellen
10.04.2003 14:10:04
Boris

Hi Bob,

Gruß Boris

Re: Suche nach leeren Zellen
10.04.2003 14:13:25
ChrisL

Hallo Bob

Hier mein Vorschlag...

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Long, LetzteZeile As Long

'Letzte Zeile ermitteln
If Sheets("Tabelle2").Range("B65536").End(xlUp).Row > Sheets("Tabelle2").Range("C65536").End(xlUp).Row Then
LetzteZeile = Sheets("Tabelle2").Range("B65536").End(xlUp).Row
Else
LetzteZeile = Sheets("Tabelle2").Range("C65536").End(xlUp).Row
End If

'Schlaufe
For i = 1 To LetzteZeile
If Sheets("Tabelle2").Cells(i, 2) = "" And Sheets("Tabelle2").Cells(i, 3) = "" Then
Sheets("Tabelle2").Cells(i, 1) = Sheets("Tabelle1").Range("C9")
Exit Sub
End If
Next i

'Falls Bedinung nicht erfüllt am Ende einfügen
Sheets("Tabelle2").Cells(LetzteZeile + 1, 1) = Sheets("Tabelle1").Range("C9")
End Sub


Falls leere Zeilen in Spalte B und C nur am Ende der Liste vorkommen kann, könnte man das ganze noch anders machen.

Gruss
Chris

Anzeige
Re: Suche nach leeren Zellen
10.04.2003 14:36:06
Bob

Danke,
funktioniert wunderbar, ihr seit meine Rettung. Also, bis die Tage und macht weiter so.

Grüße
Bob

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige