Anzeige der ausgewählten Bereich von Zellen in Textbox1

Stehe ich vor einem Problem beim anzeigen einer Reihe von ausgewählten Zellen aus Excel in eine UserForm textbox, sagen C1:E14. Sie Den code unten ist mir ein Runtime error '13' Type Mismatch: 

Private Sub CommandButton1_Click()
Dim ActSheet As Worksheet
Dim SelRange As Range
Set ActSheet = ActiveSheet
Set SelRange = Selection
Range("TABLE").Select
Application.Goto "TABLE"
UserForm1.TextBox1.Text = Range("C1:E14").Value
'UserForm1.TextBox1.Text = Range("C1:E14").Select
End Sub

Wenn ich .Value es gibt den oben genannten Fehler, aber wenn ich .Select "True" es ist Druck in der UserForm Textfeld.

  • Das ist ein Bereich von 42 einzelnen Zellen ... was willst du in das Textfeld? alle von Ihnen? Trennzeichen angezeigt/wie?
  • Eine ähnliche Frage und Diskussion aus der Vergangenheit: stackoverflow.com/questions/5590963/...
  • Um es zusammenzufassen, können Sie die Value (oder Text) Eigenschaft eines Range - Objekt, das enthält mehr als eine Zelle, es sei denn, Sie weisen Sie Sie einer Variablen vom Typ Variant (weil es ein array ist).
  • Warum brauchen Sie, um dies zu tun? Nur aus Neugier.
InformationsquelleAutor user1782817 | 2012-10-29
  1. 0

    Die Kommentare richtig sind. Sie versuchen, eine Reihe zu einem string.

    können Sie schalten Sie ihn in eine Reihe mit so etwas wie diesem

    Public Function Join(seperator As String, rng As Variant) As String

    Dim cell As Variant
    Dim joinedString As String
    For Each cell In rng
        joinedString = joinedString & cell & seperator
    Next cell
    joinedString = Left(joinedString, Len(joinedString) - Len(seperator))
    Join = joinedString

End Function

    Dann

    UserForm1.TextBox1.Text = Join(",",Range("C1:E14"))

    oder, wenn Sie wollen neue Linien aus jeder Zelle

    Dim joinedString as string
joinedString  = Join("|",Range("C1:E14"))
UserForm1.TextBox1.Text = Replace(joinedString  , "|", vbCrLf)
    InformationsquelleAutor Brad
Schreibe einen Kommentar