Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

nicht leere Zellen

nicht leere Zellen
24.06.2003 23:56:23
Micha
Hallo Profis,
ich möchte alle Werte aus dem Bereich B1:B25, welche <>"" sind, in D4 eintragen. Die Namen sollen durch ein Komma getrennt sein. Kann mir jemand helfen?
Tschüß Micha

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: nicht leere Zellen
25.06.2003 00:01:55
MikeS

Hi Micha,

wie folgt...



Option Explicit

Sub ZellenÜbertragen()
    Dim i%
    Application.ScreenUpdating = False
    
    For i = 1 To 25
        If Not IsEmpty(Cells(i, 2)) Then
            Cells(4, 4) = Cells(4, 4) & "," & Cells(i, 2)
        End If
    Next i
    
    Application.ScreenUpdating = True
End Sub



     Code eingefügt mit Syntaxhighlighter 2.1

Ciao MikeS

Anzeige
Re: nicht leere Zellen
25.06.2003 00:09:46
chris-ka

Hallo

Sub dvier()
Dim b As Range
For Each b In Range("B1:B25")
If b.Value <> "" Then
[d4] = [d4] & b.Value & ";"
End If
Next
If Len([d4]) > 0 Then
[d4] = Left([d4], Len([d4]) - 1)
End If
End Sub


gruß
Christian

Re: nicht leere Zellen
25.06.2003 00:19:38
MikeS

Hi Micha,

sorry der Fehlerteufel.

So läuft's perfekt...



Option Explicit

Sub ZellenÜbertragen()
    Dim i%
    Application.ScreenUpdating = False
    
    For i = 1 To 25
        If Not IsEmpty(Cells(i, 2)) Then
            If IsEmpty(Cells(4, 4)) Then
                Cells(4, 4) = Cells(i, 2)
            Else
                Cells(4, 4) = Cells(4, 4) & ", " & Cells(i, 2)
            End If
        End If
    Next i
    
    Application.ScreenUpdating = True
End Sub



     Code eingefügt mit Syntaxhighlighter 2.1

Ciao MikeS

Anzeige

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige