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

Excel Zellen per VBA kopieren

Forumthread: Excel Zellen per VBA kopieren

Excel Zellen per VBA kopieren
11.09.2017 18:28:13
Torsten
Hallo zusammen,
ich habe in meiner Datei folgendes vor:
Wenn Zelle A leer ist, dann kopiere aus Zelle E etwas in Zelle B sonst mache nix.
Dabei Soll Excel nicht nur A2 prüfen, sondern A2-A1000
Geht so etwas über VBA?
Sorry ich bin totaler Neuling.
Gruß Torsten
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Zellen per VBA kopieren
11.09.2017 18:30:02
Bernd
Hi,
=WENN(A1="";E1;"")
MfG Bernd
AW: Excel Zellen per VBA kopieren
11.09.2017 18:31:04
Torsten
Hallo Bernd,
danke für deine schnelle Antwort.
Mein Problem ist, dass die Reichweite bis A1000 gehen soll... Das macht es ja nicht automatisch?!
Danke,
Torsten
AW: Excel Zellen per VBA kopieren
11.09.2017 18:34:23
Bernd
Hi,
dann eben so:
Sub Makro1() ' Makro1 Makro Range("B1").Select ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",RC[3],"""")" Range("B1").Select Selection.AutoFill Destination:=Range("B1:B1000"), Type:=xlFillDefault Range("B1:B1000").Select Range("A1").Select End Sub
MfG Bernd
Anzeige
AW: Excel Zellen per VBA kopieren
11.09.2017 18:37:39
Torsten
Danke das geht denke ich in die gute Richtung.
Nur fehlt mir so ein wenig die Spalte E.
Wenn Zelle A leer ist, soll der Inhalt aus E nach B kopiert werden. Bekommst du das auch noch hin?
Gruß Torsten
AW: Excel Zellen per VBA kopieren
11.09.2017 18:58:45
Bernd
Hi,
eigentlich sollte der Code genau das machen und tut es auch bei mir.
MfG Bernd
Anzeige
AW: Excel Zellen per VBA kopieren
11.09.2017 19:05:39
Matthias
Hallo
Option Explicit 
Sub tt()
Dim x&
For x = 1 To 30 'das Ende hier 30 anpassen oder einlesen
If Cells(x, 1) = "" Then Cells(x, 2) = Cells(x, 5)
Next
End Sub
Gruß Matthias
AW: Excel Zellen per VBA kopieren
11.09.2017 19:18:07
Torsten
Das Läuft perfekt.
Danke!
ist das nicht 4x Select zuviel ? owT
11.09.2017 18:43:41
Matthias
Anzeige
AW: ist das nicht 4x Select zuviel ? owT
11.09.2017 18:49:24
Bernd
Hi Matthias,
habs ja nur mal so auf die schnelle mit dem Makrorecorder aufgezeichnet.
MfG Bernd
Da reicht eine Zeile:
11.09.2017 19:02:58
Daniel
Range("B1:B1000").FormulaR1C1 = "=IF(RC[-1]="""",RC[3],"""")"
kann man übrigens auch direkt in Excel nutzen:
erst alle Zellen markieren
dann die Formel eingeben
Eingabe mit STRG+ENTER abschließen
hat zudem den Vorteil, dass nur die Formel übernommen und keine Formate.
Gruß Daniel
Anzeige
das geht doch auch mit Formeln
11.09.2017 18:32:08
Matthias
Hallo
Tabelle1

 ABCDE
1x   E1
2 E2  E2
3x   E3
4 E4  E4
5x   E5
6x   E6
7 E7  E7
8x   E8
9x   E9
10x   E10

Formeln der Tabelle
ZelleFormel
B1=WENN(A1="";E1;"")
B2=WENN(A2="";E2;"")
B3=WENN(A3="";E3;"")
B4=WENN(A4="";E4;"")
B5=WENN(A5="";E5;"")
B6=WENN(A6="";E6;"")
B7=WENN(A7="";E7;"")
B8=WENN(A8="";E8;"")
B9=WENN(A9="";E9;"")
B10=WENN(A10="";E10;"")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: das geht doch auch mit Formeln
11.09.2017 18:33:37
Torsten
Danke für deine Antwort.
Ich habe bereits ein Makro, welches in einige Zellen Text projiziert. Dieses Makro prüft auch jede Zelle in Spalte A. Dieses Makro würde die Formel überschreiben oder?
Gruß Torsten
AW: das geht doch auch mit Formeln
11.09.2017 18:46:29
Matthias
Hallo
Zitat:
Ich habe bereits ein Makro, welches in einige Zellen Text projiziert. Dieses Makro prüft auch jede Zelle in Spalte A
Warum zeigst Du dann das Makro nicht?
Gruß Matthias
Anzeige

Forumthreads zu verwandten Themen

FreePDF XP - Makro
Michael

Hallo,
ich bin VBA-Anfänger und stehe vor einem, für mich, unlösbaren Problem
Ich wollte mir ein Makro schreiben was Folgendes tut:
1) einen Ordner erstellen und wie folgt benennen:
aus dem Sheet „Vorgaben“ sollen die Zellen „C41“ und „D41“ ausgelesen und verknüpft werden.
B...
09.02.2009 23:16:48
Thread-ID: 1048815
5 Beiträge
zellinhalte prüfen
krystyan

hallo
also ich möchte mehrere zellen auf ihren inhalt prüfen. habe dazu die "WENN";"DANN";"Sonst" funktion verwendet. =WENN(A1;A2)="";"";(A2-A1) oder so ähnlich...
bekomme die korekkte formel aber nicht zusammen ohne einen formelfehler zu kriegen.
ich möchte die zellen A1 und A2 auf ih...
06.05.2004 21:33:54
Thread-ID: 425373
5 Beiträge
Zahlenreihen prüfen
Maximilian

Hallo,
gibt es eine einfache Möglichkeit, per VBA zu prüfen, ob sich in einer Zahlenreihe zweimal ein Wert hintereinander verschlechtert hat?
Die Reihen sehen so aus:

Im markierten Feld hat sich der Wert zwei mal hintereinander verschlechtert. Wenn das der Fall ist, möchte ich,...
13.01.2013 22:33:31
Thread-ID: 1294113
4 Beiträge
Anzeige
VBA Summe mit leeren Zellen
Joachim
Hallo,
ich verwende
If Application.Sum(Range("U" & gelb).Value, Range("AJ" & gelb).Value, Range("AV" & gelb).Value * 10, Range("BJ" & gelb).Value) >= 1000000 Then um die Summe der 4 Zellen zu ermitteln. Leider kann eine oder mehrere leer sein. Um aus leer 0 zu machen, ka...
08.10.2021 09:55:43
Thread-ID: 1850864
2 Beiträge
Anzeige
Zelle prüfen ob leer wenn ja ausgewählt
Robert

Hallo,
ich benötige Unterstützung in einer VBA Formel.
Ziel ist die Prüfung ob eine Zelle in der Spalte "I2:I700" leer ist wenn in der Spalte "H" in der gleichen Zeile ein "Ja" eingegeben wird. Falls die Zelle in Spalte "I" leer ist, soll eine MsgBox ausgegeben werden und dann das "Ja"...
04.11.2020 01:28:31
Thread-ID: 1791002
3 Beiträge
vba csv.Datei Datum und Zahlen ohne ""
Bernd

Hallo Forum,
mit dem beigefügten vba code kann ich eine csv.Datei einlesen (Spalte A Datum, Spalte B bis G Zahlen).
In der ersten Zeile steht "Text" auch mit Anführungszeichen statt Text ohne Anführungszeichen
Trennzeichen ist ";".
Das Problem ist nur, dass in jede Zeile neben d...
03.01.2021 18:24:17
Thread-ID: 1803197
3 Beiträge
VBA (Spalte einfügen, fettgedruckt suchen etc.)
Simone

Hallo zusammen,
ich bin neu hier und habe auch erst gerade angefangen mich mit VBA zu beschäftigen.
Also ich suche eine Formel die folgendes kann:
Sie soll prüfen ob z.B. die Zelle A1 leer ist, wenn ja mache nix. wenn was drin steht füge eine "neue" Spalte A ein und such in der alte...
07.06.2016 18:39:43
Thread-ID: 1497473
6 Beiträge
Zelle in geschlossener Datei prüfen
WernerB.

Hallo Experten,
meine Frage hatte ich vor wenigen Tagen schon einmal ins Forum gestellt, aber leider nur unbefriedigende Antworten dazu erhalten.
Deshalb eröffne ich jetzt einen neuen Thread und formuliere die Problemstellung noch mal neu.
Ich suche nach einer VBA-Lösung (Abfrage, F...
15.02.2006 17:48:50
Thread-ID: 733059
6 Beiträge
Anzeige
VBA Zeitwert größer als
Peer
Hallo zusammen.
Ich brauche wieder einmal einen (hoffentlich) kleinen Gedankenanstoß zu folgendem Anliegen.
Ich habe in einer Zelle im Sheet "Gesamtstunden" C20 einen Zeitwert (SollArbZ) im Zellformat hh:mm. Aktuell steht hier "07:48"
Nun habe ich eine Schleife, die alle relevanten Zeile...
23.11.2021 17:15:54
Thread-ID: 1858184
17 Beiträge
Datei im Ordner umbenennen wenn
udo

Hallo Profis,
bräuchte bitte eure Hilfe bei folgendem Code.
Sub Lagerbestand_XLS_umbenennen() ' ======================================================================================== _ _ _ Dim Pfad As String Pfad = Sheets("BZG").Range("J2").Value Name = Dir(Pfad) Application.D...
27.01.2021 11:28:04
Thread-ID: 1808634
10 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum