Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einen bestimmten Namen definieren u. Wert zuweisen

Einen bestimmten Namen definieren u. Wert zuweisen
27.10.2008 16:47:13
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 zuweisen (und dann in einem weiteren Schritt auch der Long-Variable "ZeichenAnzahl1" zuweisen).
Mit nachfolgendem Code ( Then ThisWorkbook.Names("Anzahl").Value = 100 ) bin ich gescheitert.
If IsError(ZeichenAnzahl1 = Mid(ThisWorkbook.Names("Anzahl"), 2, 3)) Then ThisWorkbook.Names("Anzahl").Value = 100
Wer kann mir helfen?
Danke, Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einen bestimmten Namen definieren u. Wert zuwe
27.10.2008 17:21:00
Matthias
Hallo
so ?
...Then Worksheets(1).Range("Anzahl").Value = 100
Gruß Matthias
AW: Einen bestimmten Namen definieren u. Wert zuweisen
27.10.2008 17:26:53
Luschi
Hallo Peter,
so funktioniert es:
ThisWorkbook.Names("Anzahl").Value = 1001
MsgBox CLng(Mid(ThisWorkbook.Names("Anzahl").Value, 2)) + 10
MsgBox CLng(Mid(ThisWorkbook.Names("Anzahl").RefersTo, 2)) + 4
MsgBox [Anzahl] + 8
Gruß von Luschi
aus klein-Paris
AW: Einen bestimmten Namen definieren u. Wert zuweisen
27.10.2008 17:40:39
Peter
Guten Abend
Vielen Dank für die Antworten.
Das Problem war, dass "nicht gewährleistet ist", dass "Zeichenprozeile1" in meinem Workbook schon besteht und dass wenn dies nicht der Fall ist, ich mit ISERROR einen Laufzeitfehler erhalte und nicht eine Abfrage machen kann.
Ich habe nun eine Funktion gefunden, die prüft, ob ein bestimmter Name existiert. Existiert er nicht, erhalte ich FALSE zurück, dann kann ich den Namen definieren und den Standardwert 100 zuweisen. Diesen Wert oder einen bereits bestehenden Wert übergebe ich dann der Variable "Zeichenanzahl".
Gruss, Peter
..
If NameExists("Anzahl") = False Then ThisWorkbook.Names.Add Name:="Anzahl", RefersTo:="=100"
ZeichenAnzahl1 = Mid(ThisWorkbook.Names("Anzahl"), 2, 3)
..

Public Function NameExists(TheName As String) As Boolean
On Error Resume Next
NameExists = Len(ThisWorkbook.Names(TheName).Name)  0
End Function


Anzeige

308 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
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
Anzeige
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Per Makro zu einer Zelle springen
TomTom

Hi,
ich habe ein Formular , auf dem sitzt eine textbox. Duch irgend ein Vorgang wird eine bestimmte Zelle ermittelt, zum Beispiel "AD250". In dieser Textbox würde dann bei mir drin stehen "$AD$250"
Kann ich nun per Makro zu dieser Zellen springen, sprich, dass diese dann im Sichtbaren b...
20.01.2009 07:59:00
Thread-ID: 1041709
3 Beiträge
Makro beim verlassen einer Zelle
Dirk

Hallo zusammen,
hier wahrscheinlich zum x.ten ma die Frage; Kann ich beim Verlassen einer Zelle mit Return im Arbeitsblatt en Makro ablaufen lassen?
Im Archiv habe ich leider nichts gefunden
04.02.2009 22:09:38
Thread-ID: 1047231
5 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
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 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
1
4
5
4
2
4
4
14
1
8
1
2
9
3
5
2
2
4
7
9
13
3
2