Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Right-Funktion

Right-Funktion
24.04.2003 11:42:03
Mag
Hi,

ich möchte die Right-Funktion und die Left-Funktion benutzen, dazu habe ich folgendes eingetippt:
ZEICHENRECHTS = Right(department, ZEICHENLAENGE - ZEICHENPOS)
ZEICHENLINKS = Left(department, ZEICHENPOS - 1)

doch leider meckert der Kompiler das er Projekt oder Bibliothek nicht gefunden. Hat jemand einen Rat?

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

Betreff
Datum
Anwender
Anzeige
Re: Right-Funktion
24.04.2003 12:50:43
Yvonne

Hallo Mag,

ist department auch eine Variable oder willst du davon bestimmte Zeichen über die Funktionen auswählen? Dann müsstest du es nämlich in Anführungszeichen schreiben. Ansonsten könntest du noch überprüfen, ob allen Variablen Werte zugeordnet sind.

Gruß, Yvonne

Re: Right-Funktion
24.04.2003 12:53:28
Mag

Hi,

ja department ist eine Variable, sie bezieht den Wert von einer anderen Variablen die einen Wert zugewiesen hat

Re: Right-Funktion
24.04.2003 13:00:11
Armin

Hi Mag,
Du musst schauen ob der Verweis auf Visual Basic For Applications gesetzt ist.

Re: Right-Funktion
24.04.2003 13:07:50
Mag

Hi,
ja das ist er.

Re: Right-Funktion
24.04.2003 13:15:07
Yvonne

Hallo Mag,

könntest du vielleicht ein bisschen mehr Code posten? Eigentlich sollte das nämlich so funktionieren, wie du es gemacht hast.

Gruß, Yvonne

Anzeige
Re: Right-Funktion
24.04.2003 13:20:13
Mag

JA GERN; HIER IST ER:

Application.ScreenUpdating = False

DEFAULT_OUTPUT = "\\PFAD"
DEFAULT_INPUT = "\\PFAD"

'Neues Blatt erstellen, benennen und formatieren
Sheets.Add
On Error GoTo ZeichenExchange
DEPARTMENT_OK = department
ZeichenExchange:
On Error GoTo Blattfehler
ZEICHENPOS = InStr(1, department, "/")
ZEICHENLAENGE = Len(department)
ZEICHENRECHTS = Right(department, ZEICHENLAENGE - ZEICHENPOS)
ZEICHENLINKS = Left(department, ZEICHENPOS - 1)
DEPARTMENT_OK = ZEICHENLINKS & "_" & ZEICHENRECHTS
GoTo ZeichenOK

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige