Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1400to1404
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
Inhaltsverzeichnis

Formel per Makro bis letzte Zeile

Formel per Makro bis letzte Zeile
13.01.2015 09:47:08
onkelbobby
Hallo,
ich würde gerne in einer Tabelle eine Formel per Makro auslösen in der Form:
=A4&", "&A5&", "&A6...
In A4 steht immer der erste Wert, dann kann es in A5, A6, A7, usw. weitere Werte geben.
In A10 soll dann die o. g. Formel von A4 bis zum letzten Wert eingetragen werden.
Danke für Eure Tipps!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel per Makro bis letzte Zeile
13.01.2015 09:53:11
Hajo_Zi

Option Explicit
Sub Werte()
Dim LoI As Long
Dim LoLetzte As Long
Dim StWert As String
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count) + 1
For LoI = 4 To LoLetzte
If LoI  10 Then
'=A4&", "&A5&", "&A6...
StWert = StWert & Cells(LoI, 1) & ","
End If
Next LoI
StWert = Left(StWert, Len(StWert) - 1)
Range("A10") = StWert
End Sub

AW: Formel per Makro bis letzte Zeile
13.01.2015 10:03:30
onkelbobby
Super, Danke!
Nur ein kleiner Schönheitsfehler: Am Ende kommt immer noch ein ","
Wie kann ich das abstellen

Anzeige
AW: Formel per Makro bis letzte Zeile
13.01.2015 11:02:37
Rudi
Hallo,
das ist mitnichten eine Formel, sondern ein Text.
Sub Formel()
Dim LoI As Long
Dim LoLetzte As Long
Dim StWert As String
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count) + 1
StWert = "="
For LoI = 4 To LoLetzte
If LoI  10 And Cells(LoI, 1)  "" Then
'=A4&", "&A5&", "&A6...
StWert = StWert & Cells(LoI, 1).Address(0, 0) & "&" & """,""" & "&"
End If
Next LoI
StWert = Left(StWert, Len(StWert) - 5)
Range("A10").Formula = StWert
End Sub

Gruß
Rudi

Anzeige
AW: Formel per Makro bis letzte Zeile
13.01.2015 11:35:07
Hajo_Zi
war mir nicht aufgefallen.
StWert = Application.Substitute(StWert, ",,", ",")
StWert = Left(StWert, Len(StWert) - 1)
Gruß Hajo

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige