Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Sammeln Einfügen

Forumthread: 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

Anzeige

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

Anzeige
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

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

Anzeige
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)

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