Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
576to580
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
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

in benannten Bereich erstefrei Zelle ermiitteln

in benannten Bereich erstefrei Zelle ermiitteln
01.03.2005 17:42:06
Peter
Hallo Forum,
wie ermittelt man die erste freie Zeile im Bereich "Test"
und die letzte Zeile im Bereich "Test"
Danke Peter

Sub Test2()
Dim Sh
Dim Zeile
'Namensbereich "Test"=A9:E26
Set Sh = ThisWorkbook.Worksheets("Tabelle1")
'ermitteln der ersten freien Zeile
Zeile = Sh.Range("Test").CurrentRegion.Rows.Count + 1
Sh.Cells(Zeile, 1).Value = "Test"
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in benannten Bereich erstefrei Zelle ermiitteln
01.03.2005 22:07:09
Herbert H.
hallo Peter,
probier das:
letzte Zeile des Bereichs,
erste leere brauchst du nur + 1 zählen:


Public Sub lz_in_Bereich()
Dim As Byte, lz As Byte, lzB As Byte
For i = 1 To 5
  lz = Cells(27, i).End(xlUp).Row
  Cells(65536, i) = lz
Next
  lzB = WorksheetFunction.Max([a65536:e65536])
If lzB < 9 Then
  MsgBox "Bereich ist leer !"
Else
  MsgBox lzB
End If
End Sub

     gruß Herbert
Anzeige
AW: in benannten Bereich erstefrei Zelle ermiittel
01.03.2005 22:27:43
Uwe Küstner
Hallo Peter,
hier mal mein Vorschlag:

Sub Test2()
Dim rngZ As Range
Dim ZeileA As Long
Dim ZeileE As Long
Dim ZeileFrei As Long
'Namensbereich "Test"=A9:E26
With ThisWorkbook.Worksheets("Tabelle1").Range("Test")
.Cells(1) = "Test Beginn"
.Cells(.Cells.Count) = "Test Ende"
ZeileA = .Cells(1).Row
ZeileE = .Cells(.Cells.Count).Row
For Each rngZ In .Rows
If Application.WorksheetFunction.CountBlank(rngZ) = rngZ.Cells.Count Then
ZeileFrei = rngZ.Row
Exit For
End If
Next rngZ
End With
MsgBox "Der Bereich Test geht von Zeile " & ZeileA & " bis Zeile " & ZeileE & "." & vbLf & _
"Erste freie Zeile ist die Zeile " & ZeileFrei & "."
End Sub
Gruß Uwe
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige