Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereichsnamen vergeben

Forumthread: Bereichsnamen vergeben

Bereichsnamen vergeben
12.03.2005 12:49:54
DieterG
Hallo zusammen,
In SpalteB - ZelleB2, ZelleB5, ZelleB9 und Zelle B11 steht jeweils der
Buchstabe A!
Wie kann ich per VBA z.B. die 10 Zellen rechts neben dem Buchstaben A in allen Zeilen gleichzeitig markieren und einen Bereichsnamen vergeben?
Danke für Euere Mühe
Gruß Dieter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bereichsnamen vergeben
12.03.2005 15:23:09
WernerB.
Hallo Dieter,
wie gefällt Dir das?

Sub Dieter1()
Dim c As Range, SuBe As Range, ErgBereich As Range, _
laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 2).End(xlUp).Row
Set SuBe = Range("B1:B" & laR).Find(What:="A", _
After:=Range("B" & laR), LookAt:=xlWhole)
If Not SuBe Is Nothing Then
Set ErgBereich = Range("C" & SuBe.Row)
Set SuBe = Nothing
Else
MsgBox "Kein 'A' gefunden !" & vbCr & vbCr & "Makro-Abbruch !", _
16, "Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
For Each c In Range("B1:B" & laR)
If c.Value = "A" Then
Set ErgBereich = Application.Union(ErgBereich, _
Range("C" & c.Row & ":L" & c.Row))
End If
Next c
ErgBereich.Select
ActiveWorkbook.Names.Add Name:="Dieter", RefersTo:=ErgBereich
Set ErgBereich = Nothing
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Bereichsnamen vergeben
12.03.2005 16:05:45
DieterG
Hallo Werner,
genau danach habe ich gesucht!
Vielen Dank noch mal
Gruß Dieter
;

Forumthreads zu verwandten Themen

mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Tabellenblat Namen geben
Karsten

Hallo,
ich möchte meinem aktuellen Tabellenblatt einen anderen Namen geben. z.B "xxx".
Gibt es so etwas, wie:
activeSheets.Name = "xxx" ?
Danke für eure Hilfe.
Gruß
Karsten
08.07.2009 11:40:42
Thread-ID: 1087154
3 Beiträge
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Anzeige
Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & „;“ & TextBox2.Text……….
Danke Peter
08.11.2009 19:48:16
Thread-ID: 1115412
2 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Mehrere kriterien in einer Zelle
Gallier1

Hallo
habe folgendes problem:
A1 =WENN(UND(A8=O$1;T8<=10000;U8<=10000;<b>C8="C"oder"B"oder"A</b>");O$3;"")
Der Fett dargestellte Bereich stimmt nicht in meiner Formel. Ohne diesem Bereich funktioniert sie problemlos (Dank des UMFANGREICHEN Forums) In C8 gibt es...
11.08.2010 16:15:53
Thread-ID: 1171752
11 Beiträge
mehrere werte in einer Zelle
knab

Hallo,
ich würde gerne in einer Zelle Ergebnisse aus mehreren zellen zusammenfassen.
Beispiel:
a1 = 30
a2= 40
a3 = 50
Ziel ist jetzt a4. Hier soll stehen 30,40,50
geht das und kann mir jemand die Formel hierfür geben.
Vielen Dank
16.09.2010 10:44:09
Thread-ID: 1178021
4 Beiträge
Spaltennamen vergeben
Claudia

Hallo zusammen,
ich nutze in meinen Makros definierte Namen. Dies erleichert mir die Arbeit beim reinschreiben in die betreffende Spalte.
Range("Beruf").Cells(ActiveCell.Row, 1).Value = ........
Der Nachteil ist, wenn ich das Makro beispielsweise in eine andere Mappe kopiere, dass i...
30.01.2011 13:26:55
Thread-ID: 1198078
8 Beiträge
Bereichsnamen vergeben
Christian

Bräuchte dringende Antwort auf die Frage, wie ich im Excel Bereichsnamen vergebe !!!
15.05.2002 20:07:19
Thread-ID: 121158
8 Beiträge
Mehrere Code in einer Zelle
Gregor

Hoi zäme
Folgender Code hat mir Rudi zum löschen von Zeilen zugestellt, wenn in Zellen Code nicht vorhanden:
AnfangInput = 1600
EndeInput = 1800
For z = 10 To intLastRow - 1
Set rngW = Union(Range(Cells(z, 18), Cells(z, 21)), Range(Cells(z, 23), Cells(z, 27)))
If Applica...
11.10.2011 11:45:52
Thread-ID: 1233309
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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