Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
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
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AG3 als Header und R2:R als Liste in var

AG3 als Header und R2:R als Liste in var
11.05.2021 17:02:48
Nilo
Hi zusammen,
ich habe gerade eine Denkblockade :)
ich möchte AG3 als Header und R2:R als Liste in die Var imp1 schreiben, wie geht das ?

Dim imp1 As Range
Set imp1 = Range("AG3").Value &  Range("R2:R" & Cells(Rows.Count, "A").End(xlUp).Row)
Danke Gruß
Nilo

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

Betreff
Datum
Anwender
Anzeige
AW: AG3 als Header und R2:R als Liste in var
11.05.2021 17:24:38
ChrisL
Hi Nilo
Range = Bereich. Somit wäre der Value (Header oder sonst irgendwas) irrelevant. 

Dim imp1 As Range
Set imp1 = Union(Range("AG3"), Range("R2:R" & Cells(Rows.Count, "R").End(xlUp).Row))
imp1.Select ' Beispiel
Falls du dir hingegen einen Text-String zusammensetzen wolltest:

Dim imp1 As String
imp1 = Range("AG3") & ":" & Join(Application.Transpose(Range("R2:R" & Cells(Rows.Count, "R").End(xlUp).Row)), ";")
MsgBox imp1 ' Beispiel
cu
Chris
AW: AG3 als Header und R2:R als Liste in var
11.05.2021 22:39:29
GerdL
Moin Nilo

Sub Unit()
Dim LZ As Long
LZ = Cells(Rows.Count, 18).End(xlUp).Row
ReDim var(1 To LZ)
var = WorksheetFunction.Transpose(Cells(1, 18).Resize(LZ).Value)
var(1) = Range("AG3").Value
End Sub
Gruß Gerd
Anzeige
Vielen lieben Dank :)
12.05.2021 06:10:22
Nilo
Hi ihr beiden,
vielen lieben Dank für Eure Hilfe und die Beispiele von denen ich beide
gut verwenden kann und werde :)
Gruß
Nilo

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige