Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
640to644
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

variable Verkettung VBA

variable Verkettung VBA
24.07.2005 10:13:42
Frederike
Guten Morgen zusammen,
habe eine Frage in der ich nicht weiter komme!!
Wie kann ich variabel verketten?
BSP.: Die Bezeichnung L7 taucht in jeder Zeile einmal auf - die Spalte, in der die Bezeichnung steht ist aber immer unterschiedlich. Jetzt soll alles verkettet werden von der ersten bis zur variablen Spalte. Wie kann ich das in VBA programmieren?
i = Zähler in For -Schleife
Spalte = Rows(i).Find("L7").Column
?
?
Danke für Eure Hilfe
FB

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: variable Verkettung VBA
24.07.2005 10:19:28
Matthias
Hallo Federike,
mein Vorschlag:

Sub Kette()
Dim i, j
Dim temp As String
For i = 1 To 30
j = 1
temp = ""
Do
temp = temp & Cells(i, j)
j = j + 1
If j > 256 Then Exit Do 'Falls L7 nicht gefunden wird
Loop Until Cells(i, j - 1) = "L7"
MsgBox "Zeile " & i & ": " & temp
Next i
End Sub

Gruß Matthias
AW: variable Verkettung VBA
24.07.2005 10:36:45
Josef
Hallo Frederike!
Probier's mal so!
Option Explicit

Sub verketten()
    Dim rng As Range
    Dim lRow As Long
    
    For lRow = 1 To Cells(65536, 1).End(xlUp).Row
        Set rng = Rows(lRow).Find("L7")
        If Not rng Is Nothing Then
            Debug.Print verkettenSpezial(Range(Cells(lRow, 1), _
                Cells(lRow, rng.Column)), ", ")
        End If
    Next
End Sub


Private Function verkettenSpezial(bereich As Range, _
        Optional trenner As String) As String
    Dim r As Range
    
    For Each r In bereich
        verkettenSpezial = verkettenSpezial & r & trenner
    Next
    
    verkettenSpezial = Left(verkettenSpezial, Len(verkettenSpezial) - Len(trenner))
    
End Function


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige