Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1824to1828
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
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Copy & Einfügen - nur in leere Zellen

Copy & Einfügen - nur in leere Zellen
21.04.2021 08:40:41
Samy
Hallo,
Dieser Code sucht einen Wert, kopiert definierte Zellen einer Spalte und fügt Sie an einem entsprechenden Ort ein.
Den Code habe ich in einer Zeitschlaufe also überschreibt er immer wieder die Zellen aufs neue.
Ich suche nun nach einer Lösung wobei die schon kopierten Zellen nicht wieder überschrieben werden sollen sondern nur die neuen hinzufügt sowie falls sich ein Wert geändert hat.
With Stp
Set Treffer = .Rows(22).Find("MVR", LookIn:=xlValues, lookat:=xlWhole)
Sms.Range("K23").Resize(980, 1).Value = _
.Range(.Cells(23, Treffer.Column), .Cells(1000, Treffer.Column)).Value
End With
Ich Danke für Jede Hilfe um meinem Ziel näher zu kommen.
LG Samy

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Copy & Einfügen - nur in leere Zellen
21.04.2021 09:22:12
Rudi
Hallo,
wo ist da der Sinn, wenn auch geänderte Zellen übertragen werden sollen?
Deine Bereich stimmen in der Größe nicht überein. 980 vs 978 Zeilen.
besser:

With Stp
Set Treffer = .Rows(22).Find("MVR", LookIn:=xlValues, lookat:=xlWhole)
Sms.Range("K23").Resize(980,).Value = Treffer.OffSet(1).Resize(980).Value
End With
Gruß
Rudi
AW: Copy & Einfügen - nur in leere Zellen
21.04.2021 09:40:07
Samy
Hallo Rudi,
Danke für den Hinweis.
Der Sinn ist, das wenn mal in der zu kopierender Spalte etwas korrigiert wird, es dann auch in der anderen Spalte korrigiert ist.
Das Problem ist, falls z.B. in der zu kopierender Spalte aus versehen alles gelöscht wird, wird in der anderen Spalte auch alles weg sein, so wie der Stand jetzt ist.
Daher nur kopieren wenn zielzelle leer, oder wenn ein anderer Wert da steht als zuvor.
Lg Samy
Anzeige
AW: Copy & Einfügen - nur in leere Zellen
21.04.2021 10:48:30
Samy
Hallo,
also nochmals anders das sollte evtl. einfacher gehen.
Wenn Ziel schon Wert in einer Zelle hat dann nicht kopieren, wenn leer dann kopieren.
Wie setze ich das in diesem Code um?

Quelle.Range("A1:BB1000").Copy
Ziel.Range("A1:BB1000").PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
LG Samy
AW: Copy & Einfügen - nur in leere Zellen
21.04.2021 11:09:17
Samy
Hallo wieder,
ich glaub ich bin irre wenn ich mich nicht irre, dann ist das die Lösung skip Blanks einfach auf True setzen... :-( wie lange ich mich da jetzt aufgehängt habe.
Ich denke aber das mit Wert kopieren wenn Quelle sich geändert hat, wird dann so einfach nicht sein in einem Bereich?
ich stell mich in die Ecke...
LG Samy
Anzeige
AW: Copy & Einfügen - nur in leere Zellen
22.04.2021 18:23:45
Yal
Hallo Samy,
Nehmen ein Liste a, , c, , e, f. Die fehlende b und d sind als Leerzellen zu verstehen.
Dann kopiere ich diese und füge sie auf eine Liste 1, 2, 3, 4, ,6 mit "Skipblank" (Leerzelle überspringen).
Das Ergebnis ist a, 2, c, 4, e, f
Der Skipblank führt dazu, dass die nicht vorhandenen Werte in der Quelle das Ziel nicht überschreiben.
Dein Ziel ist, wenn ich das richtig verstehe, umgekehrt: es soll eine einzige Wert nur in den leere Zellen eingetragen werden.
Es lässt sich mit Makro Recorder sehr gut aufnehmen:

Sub Makro1()
Range("C3").Copy
Range("E2:E13").SpecialCells(xlCellTypeBlanks).Select
ActiveSheet.Paste
End Sub

der "SpecialCells(xlCellTypeBlanks)" lässt per Hand mit "Gehe zu" (Strg+g), "Inhalte" (alt+i), Auswahl "Leerzellen" anklicken.
VG
Yal
Anzeige

306 Forumthreads zu ähnlichen Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Anzeige
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 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
2
3
2
2
5
7
4
9
7
2
2
2
2
1
5
3
5
4
3
1
8
3
13
3
2