Thema Datum  Von Nutzer Rating
Antwort
18.02.2020 11:29:46 ice.
NotSolved
18.02.2020 11:53:08 Torsten
NotSolved
18.02.2020 12:03:02 Gast5920
NotSolved
Blau bei mehreren Adressen
 18.02.2020 11:59:26 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
18.02.2020 11:59:26		 Views:
589		 Rating:
     
Antwort:
  Ja
Thema:
bei mehreren Adressen

Hi,

hier ein Ausschnitt von einem anderen Projekt (ohne Fehlerbehandlung):

Zwecks Lesbarkeit sind Parts hardcodiert.


Option Explicit
Sub main()
    Dim wkbQuelle As Excel.Workbook
    Dim wksQuelle As Excel.Worksheet
    Dim rng As Excel.Range
    Dim lngLastRow As Long
    '
    Set wkbQuelle = Application.Workbooks.Open("C:\Test\Mappe1.xlsx") '<-- anzupassen
    Set wksQuelle = wkbQuelle.Worksheets("Tabelle1") '<-- anzupassen
    With wksQuelle
        
        lngLastRow = IIf(IsEmpty(.Cells(.Rows.Count, "B").Value), _
                                                            TruePart:=.Cells(.Rows.Count, "B").End(xlUp).Row, _
                                                            Falsepart:=.Rows.Count)
        
        Set rng = .Range("B2:B" & lngLastRow)
        
    End With
    '
    MsgBox getAdressA(rng)
    '
    wkbQuelle.Close SaveChanges:=False
    '
    Set rng = Nothing: Set wksQuelle = Nothing: Set wkbQuelle = Nothing
End Sub

Function getAdressA(ByRef rng As Excel.Range) As Variant
    Dim c As Excel.Range
    Dim arr() As String
    '
    ReDim arr(1 To rng.Rows.Count)
    For Each c In rng
        arr(c.Row - 1) = c.Value
    Next c
    '
    getAdressA = Join(arr, ";")
End Function

 

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
18.02.2020 11:29:46 ice.
NotSolved
18.02.2020 11:53:08 Torsten
NotSolved
18.02.2020 12:03:02 Gast5920
NotSolved
Blau bei mehreren Adressen
 18.02.2020 11:59:26 Mase
NotSolved