Right-Funktion

Forumthread: Right-Funktion
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Right-Funktion

Right-Funktion

24.04.2003 13: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

Re: Right-Funktion

24.04.2003 14:50:43

Yvonne
Re: Right-Funktion

24.04.2003 14:53:28

Mag
Re: Right-Funktion

24.04.2003 15:00:11

Armin
Re: Right-Funktion

24.04.2003 15:07:50

Mag
Re: Right-Funktion

24.04.2003 15:15:07

Yvonne
Re: Right-Funktion

24.04.2003 15:20:13

Mag

Re: Right-Funktion

24.04.2003 14: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 14: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 15:00:11

Armin

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

Re: Right-Funktion

24.04.2003 15:07:50

Mag

Hi,
ja das ist er.

Re: Right-Funktion

24.04.2003 15: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

Re: Right-Funktion

24.04.2003 15: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