Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in benannten Bereich erstefrei Zelle ermiitteln

Forumthread: 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

Anzeige

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 i 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
;

Forumthreads zu verwandten Themen

Adresse des benannten Bereiches ohne VBA
Peter

Guten Abend
Gibt es eine Möglichkeit, mittels einer Formelabfrage ausfindig zu machen, wo ein bestimmter Bereich liegt?
Angenommen der Druckbereich in Tabelle1 ist B2:P2 müsste das Ergebnis der Abfrage
=Tabelle1!$B$2:$P$2
sein.
Gruss, Peter
06.01.2009 22:09:00
Thread-ID: 1037380
16 Beiträge
Benannten Bereich einfügen
Specke

Hallo Experten,
ich möchte einen benannten Bereich in einem anderen Tabellenblatt einfügen:
If InStr(1, Empfänger, "AAA") > 0 Then
Set c = Worksheets(2).Range("B1:B200").Find("BBB", LookIn:=xlValues)
intZeile = c.Row
Worksheets(3).Range("CCC").Copy
Worksheets(2).Range...
18.03.2009 14:38:22
Thread-ID: 1061434
3 Beiträge
Änderungen in benannten Zellen speichern
Peter

Hallo Forum,
in einer Uform wird ein Datensatz ausgewählt und in mehreren Mustertabellen
an benannte Zellen übergeben.
Ich suche nach einer Möglichkeit bei Änderung in einer benannten Zelle, diese Änderung
im augewählten Datensatz der Quelldatei zu speichern.
Da ich noch wen...
26.11.2009 16:12:52
Thread-ID: 1120122
2 Beiträge
benannten bereich auswählen
Peter

Hallo ich möchte mehrere Zellen auswählen denen ich einen Namen gegeben habe,
so geht es aber leider nicht. Was mache ich den falsch? ActiveSheet.Range(Array("Sitz01", "Sitz02", "Sitz03", _ "Sitz04" _ , "Sitz05", "Sitz06", "Sitz07", "Sitz08" _ , "Sitz09", "Sitz10", "Sitz11", "Sitz12" _ , "...
26.03.2010 20:55:02
Thread-ID: 1148786
11 Beiträge
Anzeige
Zellen einfügen in einem benannten Bereich
Avalon

Hallo zusammen,
um das Problem zu beschreiben, muss ich etwas ausholen und die Arbeitsmappe erläutern.
Vorgeplänkel
Die Arbeismappe besteht aus zwei Tabellenblättern, "A" und "B".
Im Tabellenblatt "A" wurde der Bereich C2:H10 als "Bereich_A" benannt. Im Tabellenblatt "B" wurde...
20.09.2013 12:55:03
Thread-ID: 1331691
3 Beiträge
Summenprodukt mit benannten Bereichen
Carsten
Hallo alle zusammen,
ich habe folgendes Problem:
Ich habe alle meine Spalten benannt. Jetzt möchte ich mit folgende Operation ausführen:
=SUMMENPRODUKT((Sector=D10)*$AC$10:$AJ$5009)+SUMMEWENN(Sector,D10,Specific_Return)
Die Spalten AC bis AJ sind ja alle benannt, aber eben Spaltenwe...
30.07.2014 16:46:26
Thread-ID: 1373210
7 Beiträge
Reihenfolge der umbenannten Files
Rolf

Hallo zusammen,
mit dem folgenden Makro lassen sich die Files eines Ordners schnell umbenennen ohne vorher die _ ursprünglichen Dateinamen auflisten zu müssen. Sub jojo() Dim Dateiname, Pfad As String, i As Integer On Error Resume Next Pfad = [D3] i = 1 Dateiname = Dir$(Pfad & "*") Do...
09.06.2015 11:03:17
Thread-ID: 1429948
6 Beiträge
Zeilen einfügen zwischen zwei benannten Bereichen
Vic

Hallo Excelprofis - ein gesundes und erfolgreiches neues Jahr wünsche ich zunächst.
Mein Problem: Ich möchte von Arbeitsblatt1 Spalte B1:E1 bis zur letzten Zeile nach Arbeitsblatt2, Spalte B6:E6 kopieren. Das Vertrackte dabei ist, dass ich in Arbeitsblatt2, Spalte B7:E7 bereits Daten habe,...
04.01.2016 17:59:42
Thread-ID: 1467035
6 Beiträge
in bestehenden Code benannten Bereich einfügen
MB12
Hallo zusammen,
nachdem mir Michael einen tollen Code "gezaubert" hat, den ich dann noch erfolgreich erweitert habe, fehlt mir noch eine Kleinigkeit. Ich starte einen Beitrag, da Michael einige Tage nicht da ist:
Ich möchte jeweils in die damit neu erzeugten Blätter (ca 30) einen benannten...
27.03.2016 20:48:49
Thread-ID: 1484507
8 Beiträge
Anzeige
benannten Bereich aus geschl. Mappe kopieren
Fred

Hallo Excel-Experten,
ich habe ähnliche Frage schon hier im Forum gelesen,- finde aber den Beitrag nicht.
Es geht um folgendes:
Von meiner ausgehenden „Mappe2“ möchte ich per Button aus der geschlossenen „Mappe1.xlsm“ den benannten Bereich „Top_Werte“ in Tabellenblatt „Center“, in m...
10.12.2016 17:49:00
Thread-ID: 1529519
3 Beiträge
Range in benannten Bereich auswählen
Kailash

Hallo!
in dem benannten Bereich [list_columns] möchte ich Zelle 1 bis zur letzten verwendeten Zelle markieren.
Hier einer meiner vergeblichen Versuche: Sub RangeinBereichMarkieren() With ChangeColumns [list_columns].Range(Cells(1, 1), [list_columns].Cells(Rows.Count, 1).End(xlUp)).Selec...
16.02.2017 19:13:43
Thread-ID: 1542086
14 Beiträge
Word-Link auf global benannten Bereich
AndFi

Ich habe in einer Excel-Datei einen Bereich benannt, und zwar nicht auf Tabellenblatt-, sondern Arbeitsmappenebene, weil ich vom Tabellenblattnamen unabhängig sein möchte.
Aus Excel heraus klappt es wunderbar, den Bereich in Zellbezügen oder VBA-Makros einfach mit seinem Namen anzusprechen....
15.07.2017 19:06:33
Thread-ID: 1569366
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige