Thema Datum  Von Nutzer Rating
Antwort
19.09.2018 08:14:55 Radler
Solved
Blau Zeichenkette ermitteln
 19.09.2018 10:32:52 Flotter Feger
NotSolved
19.09.2018 12:41:29 Radler
NotSolved
19.09.2018 14:16:38 Flotter Feger
NotSolved
19.09.2018 15:28:50 Radler
NotSolved
19.09.2018 21:34:23 Flotter Feger
NotSolved
19.09.2018 22:31:15 Gast75516
NotSolved
20.09.2018 15:21:52 Gast12380
NotSolved
20.09.2018 11:45:44 Radler
NotSolved
20.09.2018 13:11:52 Gast60331
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
19.09.2018 10:32:52		 Views:
622		 Rating:
     
Antwort:
  Ja
Thema:
Zeichenkette ermitteln

Hallo,

so richtig habe ich deine Erklärung nicht begriffen, aber die fehlenden Ziffern, bekommst du so.

Function Auszählen(ByVal iA As Range, ByVal iB As Range)
Dim iE As String
Dim i As Long
Dim iString As String

iE = iA & iB

For i = 1 To 9
    If InStr(1, iE, i) = 0 Then
        iString = iString & IIf(iString <> "", ", " & i, i)
    End If
Next i
Auszählen = iString
End Function

Sub Test()
MsgBox Auszählen(Range("A1"), Range("B1"))
End Sub

Klappt natürlich nur, wenn tatsächlich immer "123456789" rauskommen soll ... was macht das für einen Sinn ?

VG Sabina

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.09.2018 08:14:55 Radler
Solved
Blau Zeichenkette ermitteln
 19.09.2018 10:32:52 Flotter Feger
NotSolved
19.09.2018 12:41:29 Radler
NotSolved
19.09.2018 14:16:38 Flotter Feger
NotSolved
19.09.2018 15:28:50 Radler
NotSolved
19.09.2018 21:34:23 Flotter Feger
NotSolved
19.09.2018 22:31:15 Gast75516
NotSolved
20.09.2018 15:21:52 Gast12380
NotSolved
20.09.2018 11:45:44 Radler
NotSolved
20.09.2018 13:11:52 Gast60331
NotSolved