|
Zu der "alten" Aufgabe: Leider noch nicht so richtig. Es funktioniert bei einzelnen Zellen, sobald ich mehrere Zellen markiere haut es leider nicht mehr hin. Ich nehme aber mal an sobald man hier eine neue Aufgabe hochlädt, gilt die ältere automatisch als beantwortet?
Zu der aktuellen:
Public Function Verbinden(Bereich As Range, Optional Trenner As String = "")
Dim Args() As Variant
Dim Zelle As Range
Dim i As Long
ReDim Args(Bereich.Count)
For Each Zelle In Bereich
If Zelle.Text <> "" Then
Args(i) = Zelle.Text
i = i + 1
End If
Next
ReDim Preserve Args(i - 1)
Verbinden = Join(Args, Trenner)
End Function
Das ist der bisherige Code, bei dem ich allerdings gestehen muss, dass ich selbigen im Internet gefunden habe. Dieser Code funktioniert allerdings auch nur, wenn ich Zellen oder Zellbereiche markiere. Sobald ich "per Hand" eine Zahl oder Buchstaben als Argumente eingebe, funktioniert die Funktion nicht mehr. Hinzu verstehe ich den Code ehrlich gesagt auch nicht komplett.
Die Aufgaben die ich bisher hochgestellt habe sind ehemalige Klausuraufgaben aus dem Modul VBA + Office Anwendungen (zusammen 5 ECTS) im Zuge eines Accounting/Auditing/Taxation-Studiengangs (dementsprechend eigentlich keine Berührungspunkte damit). Die hochgeladenen Aufgaben sind aus dem VBA-Teil. Es werden in 90 Minuten 2 Aufgaben gestellt - eine in Excel, eine in Word. Die Prüfung ist in 5 Wochen.
|