Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem bei VBA Anwendung

Problem bei VBA Anwendung
03.03.2006 10:39:27
subzeroone
Guten Morgen zusammen...
ich habe ein kleines Probelm. Ich möchte folgende Formel anwenden:

Function Telefon(Nr$, Code$)
Nr = Application.Substitute(Nr, " ", "")
Nr = Application.Substitute(Nr, "-", "")
Nr = Application.Substitute(Nr, "/", "")
If Left(Nr, 2) = "(0" Then
Nr = Application.Substitute(Nr, "(", "")
End If
Nr = Application.Substitute(Nr, "(0", "")
Nr = Application.Substitute(Nr, "(", "")
Nr = Application.Substitute(Nr, ")", "")
Nr = Application.Substitute(Nr, "+" & Code & "0", "+" & Code)
Nr = Application.Substitute(Nr, "00" & Code, "+" & Code)
Nr = Application.Substitute(Nr, Code & "0", Code)
If Left(Nr, 1) = "0" Then
Nr = "+" & Code & Right(Nr, Len(Nr) - 1)
End If
Telefon = Nr
End Function

Leider habe ich jedoch keine Ahnung, wie ich das in VBA eingeben muss, damit ich in Excel die Formel "Telefon" anwenden kann. Kann mir vielleicht jemand eine kleine Anleitung geben?
Vielen vielen Dank...

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

Betreff
Datum
Anwender
Anzeige
AW: Problem bei VBA Anwendung
03.03.2006 10:46:56
Hoffi
Hallo,
du kopierst diese Function in ein Modul.
Auf dem Tabellenblatt rufst Du die Function so auf:
=Telefon(A1) 'für die Zelle A1 als Beispiel
Die Function funktioniert allerdings NUR in der Mappe, in der das Modul hinterlegt ist.
Grüße
Hoffi
AW: Problem bei VBA Anwendung
03.03.2006 10:48:04
Hoffi
Hallo,
du kopierst diese Function in ein Modul.
Auf dem Tabellenblatt rufst Du die Function so auf:
=Telefon(A1) 'für die Zelle A1 als Beispiel
Die Function funktioniert allerdings NUR in der Mappe, in der das Modul hinterlegt ist.
Grüße
Hoffi
Anzeige
AW: Problem bei VBA Anwendung
03.03.2006 12:04:43
subzeroone
Hallo,
schon mal vielen Dank für die Hilfe...
Habe die Schritte alle entsprechend durchgeführt,
jedoch wird die Formel nicht ausgeführt. Bei der Anwendung in Excel
in Zelle A1=Telefon(A2) erscheint nur #Wert.
Ich verzweifel hier mit der Anwendung...
Hat jemand noch eine Idee?

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige