Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1416to1420
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

VBA Sammeln Einfügen

VBA Sammeln Einfügen
28.03.2015 09:53:53
Jürgen
Hallo und guten Morgen,
wie kann man per VBA
Werte aus dem Bereich F4 bis F15 in eine Variable aufnehmen, die leeren Zellen löschen und das Ergebnis ( nur die Werte ) ab Zelle J3 einfügen.
( Mit =Z E I L E N löschen wenn Leer, funktioniert nicht, damit mach ich mir das TB strubbelig, andere Aufgaben im selben TB mit VBA und oder Formeln würden dann gekillt werden )
An Hand einer MusterDatei wird das Beispiel nochmal verdeutlicht.
https://www.herber.de/bbs/user/96689.xls
Über Lösungsvorschläge wäre ich sehr dankbar
Mit freundlichen Grüßen
DU Jürgen

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Sammeln Einfügen
28.03.2015 10:53:24
Gerd
Hallo Jürgen!
Sub a()
Dim i As Integer
Dim X As Range
Dim Y As Variant
Dim Z As Range
On Error GoTo ende
Set X = Tabelle1.Range("F4:F15").SpecialCells(xlCellTypeConstants)
ReDim Y(1 To X.Count)
For Each Z In X
i = i + 1
Y(i) = Z.Value
Next
X.Clear
Tabelle1.Range("J3").Resize(UBound(Y), 1) = WorksheetFunction.Transpose(Y)
Exit Sub
ende: MsgBox "Nur leere Zellen!"
End Sub
Gruß Gerd

AW: VBA Sammeln Einfügen
28.03.2015 19:06:09
Jürgen
Hallo Gerd,
herzlichsten Dank für Deine Bemühungen
es funktioniert wunderbar
wünsche noch ein schönes WE
Gruß
DU Jürgen

Anzeige
AW: VBA Sammeln Einfügen
28.03.2015 12:34:13
Frank
Hallo Jürgen,
wie folgt:
Sub Makro()
Range("F4:F15").SpecialCells(xlCellTypeConstants, 23).Copy Destination:=Range("J3")
End Sub
Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen
---
at-exceltraining.de

AW: VBA Sammeln Einfügen
28.03.2015 19:04:12
Jürgen
Hallo Frank,
herzlichsten Dank für Deine Bemühungen
es funktioniert wunderbar
wünsche noch ein schönes WE
Gruß
DU Jürgen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige