Flexibler Ausgabebereich eines VBA-Moduls
15.02.2016 04:39:33
Ulrich
Hallo zusammen!
Ich möchte mich gerne mit einer Frage zur Definition des Ausgabebereichs einer VBA-Funktion an euch wenden. Mir ergibt sich die folgende Fragestellung:
Mithilfe von VBA möchte ich in einer Zelle die Verkettung des Inhalts einer Spalte wiedergeben. Hierzu verwende ich die folgende Funktion:
Sub Verketten()
Dim c As Range, tmp As String
For Each c In Selection
tmp = tmp & c & "; "
Next
Worksheets(3).Range("D8").Value = tmp
End Sub
In der folgenden VBA-Funktion ist bereits ein Ausgabebereich definiert. Da ich jedoch diese Funktion für mehrere Spalten verwenden möchte und die Ausgabe der Verkettungsfunktion in einer jeweils anderen Zelle erfolgen soll, stellt sich mir die Frage, ob sich der Ausgabebereich flexibel definieren lässt?
Ist es z.B. möglich, dass ich (1) durch Auswahl/Anklicken in einem Worksheet einen Ausgabebereich definiere und (2) durch Auswahl in einem Worksheet eine Spalte definiere und anschließend das Modul laufen lasse?
Gibt es somit eine Möglichkeit, um ein VBA-Modul für verschiedene Ausgabebereiche zu verwenden oder muss ich für jeden gewünschten Ausgabebereich ein neues VBA-Modul erstellen?
Ich würde mich sehr über eine Antwort von euch freuen - vielen Dank bereits!
Ulrich