Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen einen Namen zuweisen

Zellen einen Namen zuweisen
19.06.2007 10:33:00
Andre´
Hallo alle zusammen,
Hat jemand eine Idee, wie ich am schnellsten einen Spaltenbereich einen Namen zuweisen kann. In meinem Fall sind es 194 Spalten, wo ich manuell markieren und einen Namen zuweisen müsste.
Folgende Zellen möchte ich mit dem Spaltennamen versehen:
A6:A750 = A
B6:B750 = B
C6:C750 = C
.
.
.
GL6:GL 750= GL
Ich hoffe mir kann jemand helfen.
Danke im Voraus
MFG Andre

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen einen Namen zuweisen
19.06.2007 10:55:00
Renee
Mazwara Andre,
Dieser Code in ein Modul:

Sub AddNames()
Const iColMax = 194
Const iRowMax = 750
Dim iColCnt As Integer
Dim sName As String
Dim sReferTo As String
On Error Resume Next
For iColCnt = 30 To iColMax
sName = ActiveSheet.Cells(1, iColCnt).Address(True, False)
sName = Left$(sName, InStr(sName, "$") - 1)
sRefersTo = "=" & ActiveSheet.Name & "!$" & sName & "$1:$" & sName & "$" & iRowMax
ThisWorkbook.Names.Add Name:=sName, RefersTo:=sRefersTo
Next iColCnt
End Sub


Greetz Renee

Anzeige
AW: Zellen einen Namen zuweisen
19.06.2007 11:31:00
Andre´
Hallo Renee,
Danke!Makro funzt prima
Mir ist aufgefallen, dass generell für die Spalte S für einen gewissen Zellbereich als Name kein S akzeptiert wird. Hat dafür jemand eine Antwort.
MFG Andre

AW: Zellen einen Namen zuweisen
19.06.2007 17:09:00
Renee
Mazwara Andre,
S und Z sind im deutschen Excel reservierte Worte für Spalte und Zeile.
Im englischen "R" und "C".
Greetz Renee

AW: Zellen einen Namen zuweisen
19.06.2007 14:28:00
Peter
Hallo Andre,
warum der Name "S" nicht akzeptiert wird, weiß ich auch nict, er wird wohl irgendwo in VBA reserviert sein.
Meine Version deiner Frage sieht so aus:

Public Sub NameWieSpalte()
Dim iSpalte  As Integer
Dim sName    As String
On Error GoTo Fehler_Ausgang
For iSpalte = 1 To 194
sName = Replace(Cells(1, iSpalte).Address(0, 0), 1, "")
With Range(sName & "6:" & sName & "750")
ActiveWorkbook.Names.Add Name:=sName, RefersToR1C1:= _
"=Tabelle2!R6C" & iSpalte & ":R750C" & iSpalte & ""
End With
Next iSpalte
Weiter:
Exit Sub
Fehler_Ausgang:
MsgBox "einen Spalten-Namen """ & sName & """ mag VBA nicht!", _
48, "   Hinweis für " & Application.UserName
GoTo Weiter
End Sub


Gruß Peter

Anzeige
AW: Zellen einen Namen zuweisen:-)DANKE
19.06.2007 19:39:00
Andre´
Hallo
vielen DANK für Eure Hilfestellung. Wenn man es mit dem "S" berücksichtigt, dann kann ja für solch einen Fall etwas anderes vergeben werden!
MFG Andre

302 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Einen bestimmten Namen definieren u. Wert zuweisen
Peter

Guten Abend
In meinem Code verwende ich in einem Code den Namen "Anzahl", dem in der Regel mittels "Namen definieren" eine Zahl zugewiesen wurde.
Es kann vorkommen, dass dies in einzelnen Workbooks nicht der Fall ist. In diesem Fall möchte ich diesen Namen kreieren und den Wert 100 zuwe...
27.10.2008 16:47:13
Thread-ID: 1019675
4 Beiträge
der variable einen Wert zuweisen
Frank

Moin moin,
bin ein bisschen aus der Übung..... ;0)
dim Zahl as integer
range("a1").select
ActiveCell.FormulaR1C1 = "=Rand()"
Zahl = Range("A1").Value
anschließend möchte ich mit der Zufallszahl in der Variable Zahl weitermachen.....
Aber in der Variable Zahl bleibt h...
24.02.2009 12:05:15
Thread-ID: 1053441
5 Beiträge
Anzeige
VBA: Gültigkeit für eine Zelle zuweisen
André

Moin zusammen,
ich möchte per VBA einer Zelle eine Gültigkeit zuweisen, und zwar eine Liste von Werten, die dann per Dropdown ausgewählt werden können.
Um den hierzu notwendigen Code zu erhalten, habe ich die Gültigkeit manuell zugewiesen und per Makrorekorder aufzeichnen lassen. Dabei...
22.03.2010 14:10:36
Thread-ID: 1147568
3 Beiträge
einer anderen Zelle einen wert zu weisen
elmar.zeht-online.de

=Wenn(a1=1;b1=55;c1=44)
das funktioniert nicht
kann man einer anderen Zelle ohne VBA einen wert zuweisen ?
16.09.2010 12:57:11
Thread-ID: 1178071
8 Beiträge
Zeile rot einfärben, wenn Zelle X einen Wert übers
Takahara

Hallo,
ich habe eine Berechnung abgeschlossen und möchte nun mit der Auswertung das ganze abrunden.
Dazu möchte ich meine Tabelle durchlaufen (mit einer For-Schleife) und jedes mal wenn in einer Zeile der Wert in der Spalte "L" über den Wert einer Variablen (Uss2) steigt, die Zeile rot...
10.10.2010 10:56:54
Thread-ID: 1181570
10 Beiträge
VBA erkannt Excel Zellenwert nicht
Marc

Hallo.
Dank der Hilfe/Suche hier im Forum habe ich mir einiges basteln können. Im angehängten Excelfile werden die Spalte gesperrt in der ein "X" steht. Geben ich das "X" per Hand ein, funktioniert das. Wird das "X" per Formel erzeugt. Im Beipiel durch ein (Wenn, 2, dann "X") funktioniert...
14.10.2010 14:51:33
Thread-ID: 1182472
14 Beiträge
Range einen Zellwert zuweisen
Frank

Hallo liebes Forum!!!
In VBA schreibt man öfters z.B. Range("A2") oder so! Wie kann ich aber nun anstelle der 2 einen Zellwert verwenden. Beispiel: Ich schreibe in E1 eine 72 dann soll Range("A72") herauskommen! Wie mussich nun Range("A2") umschreiben?
Danke euch im Vorraus!!!
Gruß...
24.11.2010 09:11:00
Thread-ID: 1188469
4 Beiträge
Anzeige

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
16
5
3
4
1
2
7
9
13
3
4
1
4
5
5
7
2
5
2
8
4
4
5
3
16