Thema Datum  Von Nutzer Rating
Antwort
04.12.2018 11:35:32 Gast59996
NotSolved
Blau Text aus zwei Arrays schreiben
 04.12.2018 13:52:42 ugor
*****
NotSolved
04.12.2018 14:23:11 Gast59996
Solved

Ansicht des Beitrags:
Von:
ugor		 Datum:
04.12.2018 13:52:42		 Views:
480		 Rating:
     
Antwort:
  Ja
Thema:
Text aus zwei Arrays schreiben

Hallo,

du könntest ein Dictionary zu Hilfe nehmen:

Sub Vorschlag()
Dim ArtikelNr As Variant, Lander As Variant
Dim dic As Object
Dim i As Long
Dim Land As Variant

Set dic = CreateObject("Scripting.Dictionary")

ArtikelNr = Array(1, 2, 3, 4, 5, 6)
Lander = Split("DE,DE,DE,ES,ES,FR", ",")

For i = 0 To UBound(ArtikelNr)
    If dic.exists(Lander(i)) Then
        dic(Lander(i)) = dic(Lander(i)) & vbCrLf & CStr(ArtikelNr(i))
    Else
        dic(Lander(i)) = CStr(ArtikelNr(i))
    End If
Next

For Each Land In dic.keys
    Debug.Print "In """ & Land & """ gibt es folgende Nummern:" & vbCrLf & dic(Land)
Next
    
End Sub

 

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
04.12.2018 11:35:32 Gast59996
NotSolved
Blau Text aus zwei Arrays schreiben
 04.12.2018 13:52:42 ugor
*****
NotSolved
04.12.2018 14:23:11 Gast59996
Solved