Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeiten mit Bereichsnamen

Arbeiten mit Bereichsnamen
03.06.2016 13:35:01
Peter
Hallo Excelspezialisten,
ich habe eine Exceltabelle mit mehreren Bereichsnamen.
Nun möchte ich mittels Code von einem bestimmten Bereich in den nächsten Bereich
wechseln.
Wie kann dies erfolgen ohne dabei den Namen des Bereiches zu benennen.
z. B. ich befinde mich in Bereich1 und möchte den nächsten Bereich2 auswählen
wenn bereich1 ist nicht leer gehe in nächsten Bereich
Danke für Eure Hilfe.
Gruss Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeiten mit Bereichsnamen
03.06.2016 14:01:51
{Boris}
Hi Peter,
so in der Art vielleicht:
Sub til()
Dim C As Range, D As Range
Dim n As Name
For Each n In ThisWorkbook.Names
On Error Resume Next
If C Is Nothing Then
Set C = n.RefersToRange
Else
Set C = Union(C, n.RefersToRange)
End If
'If Err Then MsgBox Err.Description
On Error GoTo 0
Next n
For Each D In C
If D.Value  "" Then
D.Select
Exit For
End If
Next D
End Sub
VG, Boris

AW: Arbeiten mit Bereichsnamen
04.06.2016 10:39:51
Peter
Hallo Boris,
besten Dank für Deine Hilfe. Leider funktioniert das Makro nur umgekehrt.
Dein Makro wechselt vom leeren Bereich in den nicht leeren Bereich.
Vielleicht kannst Du das noch ändern.
Besten Dank, Gruss Peter

Anzeige
AW: Arbeiten mit Bereichsnamen
03.06.2016 14:05:26
UweD
Hallo
so?

Sub Peter()
Dim NN
For Each NN In ActiveWorkbook.Names
If WorksheetFunction.CountA(Range(NN))  0 Then
MsgBox "Mach was"
Application.Goto Reference:=NN.Name
End If
Next
End Sub
Gruß UweD

AW: Arbeiten mit Bereichsnamen
04.06.2016 11:17:27
Peter
Hallo Uwe,
besten Dank für Deine Hilfe. Ich habe mich wohl falsch ausgedrückt.
Wenn der Bereich gefüllt ist, dann soll der nächste freie Bereich
ausgewählt werden.
Funktioniert, wenn ich Deinen Code ändere auf = 0. Aber dann läuft
der Code bis zum Ende aller Bereiche.
Ich füge eine Beispieldatei ein: https://www.herber.de/bbs/user/105982.xlsm
Es handelt sich um ein Telefonregister für jeden Buchstaben. Problem: Es soll,
wenn ein Name mit z. B. "B" beginnt der Bereich von B angesteuert werden usw..
Ausserdem fehlt mir die Möglichkeit, des Abbruchs nach der durchgeführten Aktion.
Aber vielleicht kennst Du eine völlig andere Möglichkeit, eine Lösung für mein
Problem zu finden. Ich gebe in eine Exceltabelle per Userform eine neue Adresse
ein und diese soll dann in den ersten freien Bereich des jeweiligen Buchstabens
eingefügt werden.
Besten Dank für Deine Hilfe.
Gruss Peter

Anzeige
AW: Arbeiten mit Bereichsnamen
05.06.2016 11:03:46
Peter
Hallo Peter,
mit den USER-FORMS verstehe ich mich nicht so gut, deshalb habe ich Deine Datei mit einem Erfassungsblatt ergänzt. Ein Stück weit rechts neben dem Erfassungsblock befinden sich noch einige Spalten, welche der Steuerung des Ganzen dienen. In dem Telefonbuch selbst habe ich noch einige Formeln eingetragen, welche feststellen, ob die Felder besetzt oder frei sind.
Hier die ergänzte Datei:
https://www.herber.de/bbs/user/105999.xlsm
Bitte mal ausprobieren, FeedBack wäre schön.
Mit freundlichem Gruß
Peter Kloßek

Anzeige
AW: Arbeiten mit Bereichsnamen
05.06.2016 12:12:31
Peter
Hallo Peter,
Das Programm ist absolut perfekt. Vielen, vielen Dank.
Jetzt muss ich nur noch da ich hinsichtlich der einzugebenden Daten einen Fehler von mir entdeckt habe,
das Ganze etwas umschreiben. Ich hoffe ich steige in der von Dir verwendeten Technik durch und probiere mein Glück. Im zweifelsfall werde ich mich nochmals an Dich wenden.
Wünsche Dir noch ein schönes Wochenende.
Gruss Peter

299 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Öffnen mehrer Dateien mit gleichen Namen
Ryu

Hallo!
Wenn ich irgendwelche Exceldateien öffne und anschließend noch eine andere mit dem selben Namen (Wenn ich z.B. das Original bei mir behalte und die korrigierten von Kollegen bekomme), dann ist es so, dass entweder die zweite Datei automatisch umbenannt und geöffnet wird oder es wird...
27.08.2008 18:02:00
Thread-ID: 1005168
3 Beiträge
Liste mit Arbeitsblattnamen
Christian

Hallo Forum,
ich habe in einer Exceldatei mehrer - viele Arbeitsblätter, die, da sie importiert wurden, sehr unterschiedliche Namen haben, wie z.b. Apfel, Spargel, Schrauben, Ausfall......0,123 5,38 usw.
Um Daten aus diesen Blättern zusammenführen zu können benötige ich in einem Arbei...
28.08.2008 10:35:00
Thread-ID: 1005327
8 Beiträge
Anzeige
Datei öffnen Abfrage nach Dateinamen mit Userform
lisa

Hallo zusammen.
Ich hab die gleiche Frage in einem älteren Thread von mir gerade eben gestellt.
Ich weiß aber nicht ob diesen noch jemand liest, da ich die Frage nicht auf, noch offen gestellt, habe und ihn auch nicht in Beiträge von heute finde.
Also wenn doppelt, bitte nicht böse...
04.09.2008 14:23:00
Thread-ID: 1007419
5 Beiträge
Namen mit Konstante: funktioniert nicht!?
Jens

Hallo liebes Forum,
leider mag mich Excel mal wieder nicht:
Folgende Formel funktioniert zwar:
=ANZAHL2('Mein_Blatt'!6:6)
und liefert den richtigen Wert, aber ich möchte die Formel nach unten kopieren; dabei wird der Wert 6 inkrementell erhöht, was aber nicht passieren soll.
11.09.2008 16:58:00
Thread-ID: 1009181
4 Beiträge
In Zelle mit Namen schreiben
fga

Hallo
Ich habe ein Tabellenblatt. In dem Blatt habe ich für die Spalten einen Namen definiert. Ebenso für die Zeilen. (links oben im Namensfeld)
Z.B.:
..... Sh1 Sh2 Sh3
Rh1
Rh2
Rh3
Nun möchte ich über den Namen der Zeile und Spalte die betreffende Zelle lesen,...
08.10.2008 15:27:04
Thread-ID: 1015078
12 Beiträge
Email Ergänzing, Adresse CC
Karel

Hallo Forum,
habe in diese Forum unterstehende Email VBA code gefunden.
AUF tabelleblatt Mailadresse stehn ab A2 sten untereinander alle Emailadresse
Wie kann ich Emailadresse als CC genau so abfragen auf Tabelleblatt mail adressen ab Zelle C2
Option Explicit
Sub Serien_E...
23.10.2008 19:45:00
Thread-ID: 1018786
7 Beiträge
Probleme mit Namen für Formel und Vba
Reinhard

Hallo Wissende,
die Datei: https://www.herber.de/bbs/user/56243.xls hat nach Klick auf den Button die nachfolgende Tabelle:
Die Berechnung in Spalte C ist korrekt, so soll es aussehen, also pro Stunde nur einen Wert, Rest 0.
Da die Originaldatei alle 65536 Zeilen ausgenutzt hat, e...
24.10.2008 13:28:00
Thread-ID: 1018986
6 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
2
7
4
4
3
11
6
5
1
1
2
7
11
2
9
6
7
3
3
4
6
6
7