wie kann ich die Namen in einer MSGBOX auflisten?
MsgBox "Namen der Hersteller: " & Chr(13) & Chr(13) _
& Sheets("Namen").Range("A2:A65000").Value
Die Namen stehen in der SpalteA von "a2" an ende unterschiedlich !
mfg Walter
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim z As Long
With Sheets("Namen")
z = .Cells(.Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "Namen!A2:A" & z
End With
End Sub
Gruß Matthias
Sub ml()
Dim Text As String
Dim X
Dim C
Text = " "
For Each C In Range("A:A")
If C.Value "" Then Text = Text & vbLf & C.Value
Next
MsgBox Text, , "Ein Dankeschön an ..."
End Sub
Gruß Matthias
Option Explicit
Sub ml()
Dim Text As String
Dim C, j
Text = ""
For j = 2 To 12 'anpassen
For Each C In Range(Cells(j, 4), Cells(j, 5))
If C.Value "" Then Text = Text & " " & C.Value
Next
Text = Text & vbLf
Next j
MsgBox Text, , "Herzliche Grüße von ..."
End Sub
übrigens
(Der Code von ransi läuft bei mir auch einwandfrei). Und ist schneller ;o)
Gruß Matthias
Option Explicit
Sub ml()
Dim strT As String, zz As Long
With Sheets("Tabelle1")
For zz = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If strT "" Then strT = strT & vbLf
If .Cells(zz, 1) "" Then _
strT = strT & .Cells(zz, 1) & " / " & .Cells(zz, 4) & " / " & .Cells(zz, 6)
Next
End With
If strT "" Then MsgBox strT, , "Ein Dankeschön an ..."
End Sub
Public Sub test()
Dim Nm
With Sheets("Tabelle1")
Nm = WorksheetFunction.Transpose _
(.Range(.Cells(2, 1), .Cells(.Range("A65536").End(xlUp).Row, 1)))
End With
MsgBox Join(Nm, vbCrLf)
End Sub
Bei Ransis Routine habe ich nur den Punkt vor eine Range ergänzt.
Tritt Fehler 5 auf, wenn kein Eintrag in Spalte A steht?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Sub Version2()
Dim strT As String, zz As Long
With Sheets("Tabelle1")
For zz = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(.Cells(zz, 1)) Then
If strT "" Then strT = strT & vbLf
strT = strT & .Cells(zz, 1) & " / " & .Cells(zz, 4) & " / " & .Cells(zz, 6)
End If
Next
End With
If strT "" Then MsgBox strT, , "Ein Dankeschön an ..."
End Sub
Grüße von Erich aus Kamp-Lintfort