Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Befehlszeile im Programm
zurück: Diagramm verankern unabhängig von Spalten Aus/einblenden weiter: R1C1 in A1 wandeln für Diagramm Makro Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
erqu
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Okt 2010, 09:15
Rufname:

Befehlszeile im Programm - Befehlszeile im Programm

Nach oben
       Version: Office 2003

Hallo,
ich möchte Folgendes in meinem Makro bestimmen: wenn die Zahl eine ununterbrochene Abfolge auf- ODER absteigender Zahlenwerte ist ist, dann....
Vielleicht mit Like?
Wenn die Zahl 234567 oder 987654 ist, dann ist das wahr.
Beispiel: if z=Like[123456] Or z=Like[987654] Then
Etwas in dieser Richtung.
VG, erqu
Phelan XLPH
Fortgeschritten


Verfasst am:
07. Okt 2010, 09:33
Rufname: Phelan


AW: Befehlszeile im Programm - AW: Befehlszeile im Programm

Nach oben
       Version: Office 2003

Weißt du was das LIKE macht? Hast du in der VBA-Hilfe nachgeschaut?

Dein Lösungsansatz ist zu einfach. LIKE erkennt keine Auf/Absteigende
Reihenfolge. Das muss du schon selber programmieren. Very Happy

Teste das mal:

Code:
Sub test()
    MsgBox IsStrasse(9876)
End Sub

Function IsStrasse(s As String)
Dim i As Long
Dim x() As Byte
Dim blnReihe As Boolean

If IsNumeric(s) Then
    x = StrConv(s, vbFromUnicode)
    blnReihe = True
    If x(0) < x(1) Then
        For i = 0 To UBound(x) - 1
            If x(i) + 1 = x(i + 1) And x(i) <> x(i + 1) Then _
            : Else blnReihe = False: Exit For
        Next
    Else
        For i = UBound(x) To 1 Step -1
            If x(i) - 1 <> x(i - 1) And x(i) <> x(i - 1) Then _
            : Else blnReihe = False: Exit For
        Next
    End If
End If
IsStrasse = blnReihe
End Function

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
erqu
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Okt 2010, 11:16
Rufname:

AW: Befehlszeile im Programm - AW: Befehlszeile im Programm

Nach oben
       Version: Office 2003

Hallo,
ich habe die Funktion IsStrasse in mein Programm integriert. Die Variable o => For o=123456 To 987654 ist als Typ Long vereinbart. Es erfolgt die Fehlermeldung:Argumenttyp ByRef unverträglich.
Die Zeile lautet: If IsStrasse(o) Then
Was soll ich tun?
VG, erqu
bst
Programmierer


Verfasst am:
07. Okt 2010, 11:20
Rufname: Bernd
Wohnort: Ilsfeld

AW: Befehlszeile im Programm - AW: Befehlszeile im Programm

Nach oben
       Version: Office 2003

Auch Hallo,

Code:
Function IsStrasse(ByVal s As String)


oder:

Code:
MsgBox IsStrasse(CStr(o))


cu, Bernd
Phelan XLPH
Fortgeschritten


Verfasst am:
07. Okt 2010, 11:56
Rufname: Phelan


AW: Befehlszeile im Programm - AW: Befehlszeile im Programm

Nach oben
       Version: Office 2003

Hier die korrigierte Version:
Code:
Sub test()
    Dim z As Long
    z = 89765
    MsgBox IsStrasse(z)
End Sub

Function IsStrasse(ByVal s As String)
Dim i As Long
Dim x() As Byte
Dim blnReihe As Boolean

If IsNumeric(s) And Len(s) > 1 Then
    x = StrConv(s, vbFromUnicode)
    blnReihe = True
    If x(0) < x(1) Then
        For i = 0 To UBound(x) - 1
            If x(i) + 1 = x(i + 1) And x(i) <> x(i + 1) Then _
            : Else blnReihe = False: Exit For
        Next
    Else
        For i = UBound(x) To 1 Step -1
            If x(i) - 1 <> x(i - 1) And x(i) <> x(i - 1) Then _
            : Else blnReihe = False: Exit For
        Next
    End If
End If
IsStrasse = blnReihe
End Function

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
erqu
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Okt 2010, 20:43
Rufname:

AW: Befehlszeile im Programm - AW: Befehlszeile im Programm

Nach oben
       Version: Office 2003

hallo,
danke für das Makro. Jetzt habe ich noch eine Frage. Bei einer sechsstelligen Zahl soll gewährleistet sein, dass alle Ziffern verschieden sind(0 bis9). Wie lautet eine einfache Befehlszeile, wo man nicht jede Ziffer jeweils miteinander vergleichen muss? Also nicht so: a<>b And a<>c And....Oder gibt es dafür eine Funktion? Ich wünsche, nicht zu viel zu verlangen!
VG, erqu
Gast



Verfasst am:
07. Okt 2010, 22:05
Rufname:

AW: Befehlszeile im Programm - AW: Befehlszeile im Programm

Nach oben
       Version: Office 2003

Hallo Erhard!

Code:
Sub start()
MsgBox blndiff(123456)
MsgBox blndiff(423456)
End Sub

Function blndiff(ByVal Zahl As String, Optional i As Integer) As Boolean

For i = Len(Zahl) To 1 Step -1
    If Len(Zahl) - Len(Replace(Zahl, Mid$(Zahl, i, 1), "")) <> 1 Then Exit For
Next
blndiff = i = 0

End Function

Gruß Gerd
Phelan XLPH
Fortgeschritten


Verfasst am:
08. Okt 2010, 00:49
Rufname: Phelan

AW: Befehlszeile im Programm - AW: Befehlszeile im Programm

Nach oben
       Version: Office 2003

Hey Gerd, das tut sogar Confused Laughing


...aber um ne chleife kommst du nicht drumrum.

NEIN, es gibt keine bereits "eingebaute" Funktion.

Hatte ich aber oben schon geschrieben! Rolling Eyes

Meinen Code kannst du in Gulli kicken, er ist fehlerhaft!

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
erqu
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Okt 2010, 09:12
Rufname:

AW: Befehlszeile im Programm - AW: Befehlszeile im Programm

Nach oben
       Version: Office 2003

Hallo Gerd(E.?),
danke für das Makro, das funktioniert einwandfrei!
VG, erqu
Gast



Verfasst am:
08. Okt 2010, 16:51
Rufname:

AW: Befehlszeile im Programm - AW: Befehlszeile im Programm

Nach oben
       Version: Office 2003

Zitat:
Hey Gerd, das tut sogar

Hallo Phelan, ist das jetzt gut oder schlecht? Razz
Code:
...aber um ne chleife kommst du nicht drumrum

Das habe ich bis jetzt noch nicht behauptet.

Zitat:
Hallo Gerd(E.?),

Hallo erqu, nein, kein E.

Grüße Gerd
Phelan XLPH
Fortgeschritten


Verfasst am:
08. Okt 2010, 19:01
Rufname: Phelan


AW: Befehlszeile im Programm - AW: Befehlszeile im Programm

Nach oben
       Version: Office 2003

SEHR GUT!

das mit der schleife war erqu gerichtet!

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel VBA (Makros): Auf Zellenklick externes Programm öffnen 9 Ines B. 1339 09. Jan 2009, 11:24
Ines B. Auf Zellenklick externes Programm öffnen
Keine neuen Beiträge Excel VBA (Makros): Externes Programm Über CommandButton öffnen 21 Mury80 3436 11. Nov 2008, 13:33
losgehts Externes Programm Über CommandButton öffnen
Keine neuen Beiträge Excel VBA (Makros): Prüfen ob Programm geöffnet 2 Kunibert59 3547 30. Okt 2008, 17:22
Kunibert59 Prüfen ob Programm geöffnet
Keine neuen Beiträge Excel VBA (Makros): Versenden einer Excel Datei mit StandardMail Programm 3 Josephins 1436 30. Okt 2008, 17:05
Josephins Versenden einer Excel Datei mit StandardMail Programm
Keine neuen Beiträge Excel VBA (Makros): VBA Programm aus Excel Tabelle starten und danach in Excel 5 HansBlix 3058 20. Okt 2008, 15:20
HansBlix VBA Programm aus Excel Tabelle starten und danach in Excel
Keine neuen Beiträge Excel VBA (Makros): VBA zu langsam - übers Programm drüber schauen! 1 Radon 300 02. Okt 2008, 09:05
Rhapsody VBA zu langsam - übers Programm drüber schauen!
Keine neuen Beiträge Excel VBA (Makros): Timer überlastet Programm? 2 Rhapsody 410 15. Sep 2008, 09:52
Rhapsody Timer überlastet Programm?
Keine neuen Beiträge Excel VBA (Makros): Probleme mit meinem Programm auf nem Mac 0 London-vba-Anfänger 422 03. Jun 2008, 11:54
London-vba-Anfänger Probleme mit meinem Programm auf nem Mac
Keine neuen Beiträge Excel VBA (Makros): Vollstndiges Programm zur Datenselektion in Excel schreiben 1 fkiller 616 11. Mai 2007, 13:12
arnoldh Vollstndiges Programm zur Datenselektion in Excel schreiben
Keine neuen Beiträge Excel VBA (Makros): Laufzeit von Schleife bricht Programm ab 6 lauer.ulrich 507 20. Apr 2007, 18:20
lauer.ulrich Laufzeit von Schleife bricht Programm ab
Keine neuen Beiträge Excel VBA (Makros): Programm läuft bei zweitem Durchlauf langsamer 9 krug33 715 17. Apr 2007, 17:24
ransi Programm läuft bei zweitem Durchlauf langsamer
Keine neuen Beiträge Excel VBA (Makros): Konfuses Programm 0 Gast 405 16. Okt 2006, 12:17
Gast Konfuses Programm
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps