Erste freie Zelle/Zeile in einem best. Bereich?

Forumthread: Erste freie Zelle/Zeile in einem best. Bereich?

25.07.2004 07:02:30

Oliver

Moin an alle Frühaufsteher,
hab mal wieder eine Frage. Wei kann ich in einem Bereich (C6:BT36), also nicht nur in einer Spalte, die letzte Zelle , bzw Zeile, ermitteln. Wie das für eine Spalte funktioniert habe ich in der Recherche schongefunden, nicht aber für einen Bereich. Kann mir da jemand weiterhelfen?
Danke Euch schon mal im Voraus,
Oliver

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Erste freie Zelle/Zeile in einem best. Bereich?

25.07.2004 07:10:59

Nepumuk

Hallo Oliver,
so geht's:

Public Sub test()
    Dim intSpalte As Integer, intmerkspalte As Integer, lngZeile As Long
    For intSpalte = 3 To 72
        If lngZeile < Cells(Rows.Count, intSpalte).End(xlUp).Row + 1 Then
            lngZeile = Cells(Rows.Count, intSpalte).End(xlUp).Row + 1
            intmerkspalte = intSpalte
        End If
    Next
    MsgBox "Zeile " & CStr(lngZeile) & " in Spalte " & CStr(intmerkspalte)
End Sub

Gruß
Nepumuk

Leider noch nicht so ganz!

Oliver

Moin Nepumuk,
danke für die schnelle Antwort am frühen morgen. Leider erhalte ich ein falsches Ergebnis. Der Bereich, der für mich relevant ist, lautet Zelle C6 bis Zelle BT36. Mir wird aber mit Deinem Makro eine Zeile ausgegeben, die unterhalb von Zeile 36 ist. Das ist normalerweise auch richtig, da unterhalb der Zeile 36 noch Eintragungen erfolgen, die aber bei dem Ermitteln der freien Zeile/Zelle nicht berücksichtigt werden sollen.
Hast Du dafür eventuell auch noch eine Lösung?
Gruß,
Oliver

AW: Leider noch nicht so ganz!

25.07.2004 07:24:01

Nepumuk

Hallo Oliver,
kannst du mal eine Beispielmappe auf den Server laden?
Gruß
Nepumuk

AW: Leider noch nicht so ganz!

Oliver

Hi Nepumuk,
eine Beispieldatei hochzuladen geht leider nicht, da müsste ich zu viel ändern, habe aber mal den Bereich als Bild mit reingestellt.

Dienstplanung MKT

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL	AM	AN	AO	AP	AQ	AR	AS	AT	AU	AV	AW	AX	AY	AZ	BA	BB	BC	BD	BE	BF	BG	BH	BI	BJ	BK	BL	BM	BN	BO	BP	BQ	BR	BS	BT
5	Tag	Datum	Dienst										Plan Std.	Dienst										Plan Std.	Dienst										Plan Std.	Dienst										Plan Std.	Dienst										Plan Std.	Dienst										Plan Std.	Anmerkungen		Anmerkungen	Anmerkungen
6	So	01	07	00	-	13	00	13	30	-	16	00	#NAME?	07	00	-	13	00	13	30	-	16	10	#NAME?	07	00	-	13	00	13	30	-	16	20	#NAME?	07	00	-	13	00	13	30	-	16	30	#NAME?	07	00	-	13	00	13	30	-	16	40	#NAME?	07	00	-	13	00	13	30	-	16	50	#NAME?
7	Mo	02			Urlaub								#NAME?			Urlaub								#NAME?			Urlaub								#NAME?			Urlaub								#NAME?			Urlaub								#NAME?			Urlaub								#NAME?
8	Di	03											#NAME?			Urlaub								#NAME?			Urlaub								#NAME?			Urlaub								#NAME?			Urlaub								#NAME?											#NAME?
9	Mi	04											#NAME?											#NAME?			Urlaub								#NAME?			Urlaub								#NAME?			Urlaub								#NAME?											#NAME?
10	Do	05											#NAME?											#NAME?											#NAME?			Urlaub								#NAME?			Urlaub								#NAME?											#NAME?
11	Fr	06											#NAME?											#NAME?											#NAME?											#NAME?			Urlaub								#NAME?											#NAME?
12	Sa	07											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
13	So	08											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
14	Mo	09											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
15	Di	10											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
16	Mi	11											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
17	Do	12											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
18	Fr	13											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
19	Sa	14											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
20	So	15											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
21	Mo	16											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
22	Di	17											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
23	Mi	18											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
24	Do	19											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
25	Fr	20											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
26	Sa	21											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
27	So	22											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
28	Mo	23											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
29	Di	24											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
30	Mi	25											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
31	Do	26											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
32	Fr	27											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
33	Sa	28											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
34	So	29											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
35	Mo	30											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
36	Di	31											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
37	Sollstunden		105,6											158,4											176											158,4											176											176
38	Planstunden												#NAME?											#NAME?											#NAME?											#NAME?											#NAME?											#NAME?
39	Rest Vormonat
40	Total												####											####											####											####											####											####
41	Übertrag												####											####											####											####											####											####
42	Restl. Url.tage

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Ich hoffe, das reicht. Wenn nicht, muss ich die Datei mal bearbeiten, so dass ich diese hier hochladen kann.
Dnake,
Oliver

AW: Leider noch nicht so ganz!

25.07.2004 07:51:19

Nepumuk

Hallo Oliver,
ersetze in beiden Zeilen den Ausdruck "Rows.Count" durch die Zahl 37.
Gruß
Nepumuk

Noch ein Problem aufgetaucht!

Oliver

Danke Dir Nepumuk,
für die Antwort. Eigentlich funktioniert der Code, so wie Du ihn geschrieben hast. Nur bei meiner Tabelle nicht, da in den Spalten M, X, AI, AT, BE und BP Formeln stehen. Das habe ich erst jetzt mitbekommen, dass Formeln ebenfalls bei dem Ermitteln der freien Zeile/Zelle mit einbeogen werden. Sorry, ist meine Schuld, wusste ich aber nicht. Kann man das Makro irgendwie so umstricken, das die oben genannten Spalten nicht mit berücksichtigt werden?
Ich hoffe, Du hast noch Lust mir zu helfen?
Danke Dir jedenfalls dafür
Oliver

AW: Noch ein Problem aufgetaucht!

25.07.2004 09:22:48

Nepumuk

Hallo Oliver,
dann versuch es mal so:

Public Sub test()
    Dim intSpalte As Integer, intmerkspalte As Integer, lngZeile As Long, strPruefstring As String
    strPruefstring = ",13,24,35,46,57,68,"
    For intSpalte = 3 To 72
        If InStr(1, strPruefstring, "," & CStr(intSpalte) & ",") = 0 Then
            If lngZeile < Cells(37, intSpalte).End(xlUp).Row + 1 Then
                lngZeile = Cells(37, intSpalte).End(xlUp).Row + 1
                intmerkspalte = intSpalte
            End If
        End If
    Next
    MsgBox "Zeile " & CStr(lngZeile) & " in Spalte " & CStr(intmerkspalte)
End Sub

Gruß
Nepumuk

Perfekt!

Oliver

Super und danke Nepumuk,
das Makro funktioniert genau so , wie ich es mir vorgestellt habe.
Schönen Sonntag wünsche ich Dir noch,
Oliver

Hallo Frühaufsteher :-))

25.07.2004 07:25:32

Franz

Guten Morgen Nepumuk,
wie immer schon vor Sonnenaufgang unterwegs...
Dein Tipp ist ne schöne Lösung, zählt aber eine Zeile zu hoch, hab das zweite "+1" weggelassen.
Schönen Tag und Grüße
Franz

AW: Erste freie Zelle/Zeile in einem best. Bereic

Reinhard

Moin Oliver,
im Bereich C6:BT36 ist BT36 die letzte Zelle und 36 die letzte Zeile.
Wenn du genauer fragst was du eigentlich willst kann dir Nepumuk auch exakt antworten.
Gruß
Reinhard

AW: Erste freie Zelle/Zeile in einem best. Bereic

Oliver

Moin Reinhard,
ich möchte Dir nicht zu nahe treten, aber wenn Du genauer meine erste Frage lesen würdest, würdest Du auch sehen, dass ich den Bereich C6:BT36 angegeben habe.
Gruß,
Oliver

*staun & kicher* Thema beendet für mich owT

Reinhard

Beliebteste Forumthreads (12 Monate)

Erste freie Zelle/Zeile in einem best. Bereich?

Forumthread: Erste freie Zelle/Zeile in einem best. Bereich?

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Erste freie Zelle/Zeile in einem best. Bereich?

Forumthread: Erste freie Zelle/Zeile in einem best. Bereich?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread