AW: Inhalt mehrerer Zellen in eine kopieren
02.08.2016 14:04:58
Daniel
Hi
probier mal das Makro aus:
Sub MerhfachZellenAuswählenUndEinfügen()
Dim Zelle As Range
Dim Quelle As Range
Dim Ziel As Range
Dim Erg As String
Dim TB As String
On Error GoTo Ende
Set Quelle = Application.InputBox("Quellzellen auswählen", Type:=8)
Set Ziel = Application.InputBox("Zielzelle auswählen", Type:=8)
On Error GoTo 0
If Quelle.Worksheet.Name = Ziel.Worksheet.Name Then
TB = ""
Else
TB = "'" & Quelle.Worksheet.Name & "'!"
End If
Select Case MsgBox("Ergebnis als Fix-Wert eintragen?", vbYesNoCancel + vbQuestion)
Case vbYes
For Each Zelle In Quelle
Erg = Erg & "," & Zelle.Text
Next
Ziel.Value = Mid(Erg, 2)
Case vbNo
For Each Zelle In Quelle
Erg = Erg & "&"",""&" & TB & Zelle.Address
Next
Ziel.Formula = "=" & Mid(Erg, 6)
Case Else
End Select
Ende:
End Sub
gruß Daniel