HERBERS Excel-Forum - das Archiv
Thema: Zelleinträge darstellen
-
Zelleinträge darstellenLorenz
-
D A N K E!! owTLorenz
Zelleinträge darstellen
Lorenz
Hallo & Mahlzeit
Leider wird mit folgendem Code immer nur letzter Eintrag dargestellt. Brauche aber alle gefundenen als Eintrag (Da ich das Ergebnis in "ControlTipText" einlese ist eine ", " notwendig.)
For iNam = iNam To 89
If Cells(iNam, lngCol) <> "" Then
NamU = Cells(iNam, 1)
NamU = NamU + ", " + NamU
End If
Next
msgbox NamU
Ich kann es drehen wie ich will (bekomme immer nur letzten Eintrag) Hat da jemand nen Tipp?
Danke im voraus
Gruß Lorenz
AW: Zelleinträge darstellen
Rudi
Hallo,
For iNam = iNam To 89
If Cells(iNam, lngCol) <> "" Then
NamU = NamU & ", " & Cells(iNam, 1)
End If
Next
msgbox NamU
Rudi
D A N K E!! owT
Lorenz
Zelleinträge darstellen
Lorenz
Hallo & Mahlzeit
Leider wird mit folgendem Code immer nur letzter Eintrag dargestellt. Brauche aber alle gefundenen als Eintrag (Da ich das Ergebnis in "ControlTipText" einlese ist eine ", " notwendig.)
For iNam = iNam To 89
If Cells(iNam, lngCol) <> "" Then
NamU = Cells(iNam, 1)
NamU = NamU + ", " + NamU
End If
Next
msgbox NamU
Ich kann es drehen wie ich will (bekomme immer nur letzten Eintrag) Hat da jemand nen Tipp?
Danke im voraus
Gruß Lorenz
AW: Zelleinträge darstellen
Rudi
Hallo,
For iNam = iNam To 89
If Cells(iNam, lngCol) <> "" Then
NamU = NamU & ", " & Cells(iNam, 1)
End If
Next
msgbox NamU
Rudi
D A N K E!! owT
Lorenz
Excel-Beispiele