Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.02.2020 11:29:46 |
ice. |
|
|
|
18.02.2020 11:53:08 |
Torsten |
|
|
|
18.02.2020 12:03:02 |
Gast5920 |
|
|
bei mehreren Adressen |
18.02.2020 11:59:26 |
Mase |
|
|
Von:
Mase |
Datum:
18.02.2020 11:59:26 |
Views:
594 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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. |
|
|
|
18.02.2020 11:53:08 |
Torsten |
|
|
|
18.02.2020 12:03:02 |
Gast5920 |
|
|
bei mehreren Adressen |
18.02.2020 11:59:26 |
Mase |
|
|