Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
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
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe bei VBA Kopieren bestimmter Zellen

Hilfe bei VBA Kopieren bestimmter Zellen
28.08.2020 13:49:01
Simon
Hallo zusammen,
ich bin im Bereich VBA Programmierung ziemlicher Novize und stehe aktuell vor folgendem Problem:
Ich möchte aus einer Liste von Artikelnummern und Anzahlen die Artikelnummern in die selbe Arbeitsmappe um 4 Zellen weiter rechts kopieren, bei denen die Anzahl größer 0 ist. Die Artikelnummern selbst werden über eine Indexformel geholt, es sollen jedoch Werte kopiert werden, nicht die Formel.
Artikel-Nr: Anzahl:
ABCD 0
BCDE 0
CDEF3 23
DEFG4 13

Mir ist klar, dass das wahrscheinlich super trivial ist, ich komme jedoch auch nach intensiver Recherche leider nicht selbst auf einen sinnvollen Code.
Bin für eure Unterstützung dankbar.
Viele Grüße
Simon

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei VBA Kopieren bestimmter Zellen
28.08.2020 14:02:48
UweD
Hallo
- In Zelle F2: =WENN(B2&GT0;B2;"")
- Nach unten kopieren
- Spalte F Kopieren, einfügen Werte
Kann auch aufgezeichnet und nachbearbeitet werden.
LG UweD
AW: Hilfe bei VBA Kopieren bestimmter Zellen
28.08.2020 14:09:25
Simon
Hallo Uwe,
danke für deinen Vorschlag. Damit bekomme ich aber bei meinem Beispiel in den ersten beiden Zeilen 2 Leerzeilen.
Ich möchte gerne, dass im Ergebnis eine Stückliste erstellt wird, die in der ersten Zeile beginnt und keine Leerzeilen beinhaltet.
Viele Grüße
Simon
AW: Hilfe bei VBA Kopieren bestimmter Zellen
28.08.2020 14:14:05
Werner
Hallo,
mit dem Autofilter: 
Option Explicit
Public Sub kopieren()
Dim loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.Sum(.Range("B1:B" & loLetzte)) > 0 Then
.Range("A1:B" & loLetzte).AutoFilter field:=2, Criteria1:=">0"
.AutoFilter.Range.Copy
.Range("F1").PasteSpecial Paste:=xlPasteValues
.Range("A1").AutoFilter
Else
MsgBox "Fehler: Kein Artikel mit Anzahl größer 0 vorhanden."
End If
End With
Application.CutCopyMode = False
End Sub
Gruß Werner
Anzeige
AW: Hilfe bei VBA Kopieren bestimmter Zellen
28.08.2020 14:22:55
Simon
Hallo Werner,
wow, wie macht ihr das blos, so schnell so einen Code anzubieten. Vielen Dank dafür!
Eine Sache gibt es noch, die ich nicht selbst gelöst bekomme. Aktuell werden die Überschriften der Spalten "Artikelnummer" in A1 und "Anzahl" in B1 noch mit deinem Makro mit kopiert.
Was muss ich am Code ändern, damit das nicht mehr passiert?
Viele Grüße
Simon
AW: Hilfe bei VBA Kopieren bestimmter Zellen
28.08.2020 14:29:35
Werner
Hallo,
dann so: 
Option Explicit
Public Sub kopieren()
Dim loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.Sum(.Range("B1:B" & loLetzte)) > 0 Then
.Range("A1:B" & loLetzte).AutoFilter field:=2, Criteria1:=">0"
With .AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Copy
End With
.Range("F1").PasteSpecial Paste:=xlPasteValues
.Range("A1").AutoFilter
Else
MsgBox "Fehler: Kein Artikel mit Anzahl größer 0 vorhanden."
End If
End With
Application.CutCopyMode = False
End Sub
Gruß Werner
Anzeige
AW: Hilfe bei VBA Kopieren bestimmter Zellen
28.08.2020 14:34:27
Simon
Hallo Werner,
perfekt! Vielen Dank nochmal für deine schnelle Hilfe.
viele Grüße
Simon
Gerne u. Danke für die Rückmeldung. o.w.T.
28.08.2020 14:37:09
Werner
AW: Hilfe bei VBA Kopieren bestimmter Zellen
28.08.2020 14:34:23
Gerd
Moin Simon,
teste mal mit
.AutoFilter.Range.Offset(1).Resize(AutoFilter.Range.Rows.Count - 1, 2).Copy
Gruß Gerd

309 Forumthreads zu ähnlichen Themen

Mehrere Textfelder markieren
Captain

Moin @all,
ich erstelle mehrere Textfelder auf meiner Userform dynamisch.
Gibt es für die Userform eine Möglichkeit, mehrere Textfelder per Maus auf einmal zu markieren, so wie es in einem Sheet mit den Zellen möglich ist?
Im Anhang meine Beispieldatei:
https://www.herber.de/bb...
18.08.2008 11:11:00
Thread-ID: 1002529
9 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Excel markiert mehrere Zellen
Udo

Hallo zusammen,
seit kurzem hab ich das Problem, dass Excel immer 4 Zellen senkrecht auf einmal markiert. Ich bekomme es nicht weg. Jemand ne Idee ?
Vielen Dank
28.11.2008 23:27:00
Thread-ID: 1028803
3 Beiträge
Anzeige
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
nicht zusammenhängende Zellen markieren
P.Mackes

Es ist nur eine Spielerei, aber trotzdem...
Weiß jemand eine Möglichkeit zwei (oder mehrere) nicht zusammenhängende Zellen ohne die Maus (also nur mit Tastatur) zu markieren?
Evtl. geht sowas über named ranges oder mit dem F8-Key, aber ich bin noch auf keine richtige Lösung gekommen.
30.03.2009 14:35:35
Thread-ID: 1065301
3 Beiträge
Range aus mehreren Zellbereichen als Variabeln
Randolf

Hallo,
ich möchte folgenden Zeile mit Variabeln darstellen:
Range("AM65:AN65,BB65:BC65").Select folgenden Ansatz habe ich derzeit, aber mir mach der Doppelpunkt zu schaffen:
Range(Cells(i, 39), Cells(i, 40), Cells(i, 54), Cells(i, 55)).Select
versuche wie Range(Cells(i, 3...
08.05.2009 11:06:07
Thread-ID: 1073827
13 Beiträge
Kopieren von nicht zusammenhängenden Zellen
nicht

Hallo zusammen,
ich möchte nicht zusammenhängende Zellen gleichzeitig kopieren. Hierfür markiere ich die entsprechenden Zellen und versuche dann zu kopieren.
Ab einer bestimmten Anzahl von Zellen ist dies allerding nicht mehr möglich.
Es erscheint dann folgende Fehlermeldung:
...
16.06.2009 12:02:18
Thread-ID: 1081826
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
2
5
2
2
1
6
2
12
1
7
3
8
2
4
1
2
3
2
4
2
4
4
3
5