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

Excel Makro wenn Wert Zeile kopieren

Forumthread: Excel Makro wenn Wert Zeile kopieren

Excel Makro wenn Wert Zeile kopieren
11.03.2016 08:44:14
tom91i
Hallo zusammen,
da ich mich erst seit kurzem mit dem Thema VBA beschäftige bin ich noch ziemlich unerfahren und würde dringend eure Hilfe benötigen.
Folgendes Problem. Ich möchte einen Makro erstellen welcher mir, wenn in der Spalte B der Wert "*********" und in Spalte C der Wert "2Y" erscheint, die ganze Zeile eins nach oben kopiert jedoch den Wert in Spalte B auf "xxxxxxxxx" abändert.
Kann mir hier jemand weiterhelfen?
Beste Grüße
Thomas

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Makro wenn Wert Zeile kopieren
11.03.2016 09:05:53
UweD
Nach oben kopiert
Meinst du
- Die Zeile darüber überschreiben, oder eine Zeile einfügen?
Gruß UweD

AW: Excel Makro wenn Wert Zeile kopieren
11.03.2016 09:10:16
tom91i
die ganze zeile kopieren und darüber einfügen (also eine neue Zeile) :)
Beste Grüße
Thomas

AW: Excel Makro wenn Wert Zeile kopieren
11.03.2016 09:28:41
UweD
so? 

Dim i&, Bis&
With ActiveSheet
Bis = .Cells(Rows.Count, 3).End(xlUp).Row 'letzte Zeile der Spalte C
i = 2 'erste Zeile
Do Until i >= Bis
If .Cells(i, 2) = "*********" And .Cells(i, 3) = "2Y" Then
.Rows(i).Copy
.Rows(i).Insert Shift:=xlDown
Application.CutCopyMode = False
.Cells(i + 1, 2) = "xxxxxxxxx"
Bis = Bis + 1
End If
i = i + 1
Loop
End With
Gruß UweD

Anzeige
AW: Excel Makro wenn Wert Zeile kopieren
11.03.2016 11:41:06
tom91i
funtioniert super Danke Uwe hast mir den Tag wieder mal gerettet :D
Noch ne letzte Frage:
Ich versuche noch alle Zellen die Auf E "2Y" enthalten von A:M einzufärben. Aber irgendwie übernimmt er mir hier nichts wenn ich diesen Makro verwende:
Sub Makro5()
Dim rngCell As Range
For Each rngCell In Range("A:M")
If InStr(1, rngCell.Value, 5) = "2Y" Then
rngCell.Interior.ColorIndex = 45
Else
rngCell.Interior.ColorIndex = xlNone
End If
Next rngCell
End Sub

Beste Grüße
Thomas

Anzeige
AW: Excel Makro wenn Wert Zeile kopieren
11.03.2016 12:55:20
UweD 
  If InStr(1, rngCell.Value, "2Y" >0 Then
Gruß UweD

AW: Excel Makro wenn Wert Zeile kopieren
11.03.2016 13:20:04
tom91i
Leider funktioniert er so auch nicht. Sicher dass es so passt?
Beste Grüße
Thomas

AW: Excel Makro wenn Wert Zeile kopieren
11.03.2016 13:25:56
UweD
Klammer vergessen
If InStr(1, rngCell.Value, "2Y") >0 Then

Anzeige
AW: Excel Makro wenn Wert Zeile kopieren
11.03.2016 13:36:44
tom91i
Danke schonmal :) funktioniert aber färbt nur die jeweilige Spalte und nicht den ganzen Bereich von A:M
Beste Grüße
Thomas

AW: Excel Makro wenn Wert Zeile kopieren
11.03.2016 13:47:07
tom91i
Also iwie hab ich hier generell nen Fehler drin :/
Nochmal die Situation:
Wenn Wert "2Y" in Spalte 5 dann Zeile A-M eingefärbt
Beste Grüße
Thomas

Anzeige
AW: Excel Makro wenn Wert Zeile kopieren
14.03.2016 09:39:09
UweD
So wie du das machst, durchsuchst du jede ZELLE in A:M nach 2Y und färbst die ein / bzw. setzt ohne
Also erst A1, B1, C2... M1 dann A2, B2 ....

So wird nur Spalte E durchsucht, und auch nur die Zellen, die Werte enthalten.
Dann wird in der Zeile der Bereich A:M eingefärbt.
Sub ddfsd()
Dim Zelle, RngCell
With ActiveSheet
Set RngCell = .Range("A:M")
For Each Zelle In .Columns(5).SpecialCells(xlCellTypeConstants, 3)
If InStr(1, Zelle.Value, "2Y") > 0 Then
Intersect(RngCell, Zelle.EntireRow).Interior.ColorIndex = 45
Else
Intersect(RngCell, Zelle.EntireRow).Interior.ColorIndex = xlNone
End If
Next
End With
End Sub
Gruß UweD

Anzeige
AW: Excel Makro wenn Wert Zeile kopieren
11.03.2016 10:57:46
UweD
Schneller

Dim Zelle
With ActiveSheet
For Each Zelle In .Columns(2).SpecialCells(xlCellTypeConstants, 3)
If Zelle.Value = "*********" And Zelle.Offset(0, 1).Value = "2Y" Then
Zelle.EntireRow.Copy
Zelle.EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
Zelle.Offset(-1, 0).Value = "xxxxxxxxx"
End If
Next
Gruß UweD
Anzeige
;

Forumthreads zu verwandten Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Anzeige
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Werte aus PRN Datei einlesen über 65563 Zeilen
Andre´

Hallo alle zusammen,
Ich lese aus einer PRN-Datei die Werte ins Excel ein wie folgt:
Option Explicit
Sub Daten_einlesen() Dim iFree As Integer, strText As String, arrTmp, arrDaten() Dim lngCounter As Long, lngStart As Long, lngEnde As Long ReDim arrDaten(1 To 11, 1 To 1) iFree = Fr...
04.11.2008 08:39:00
Thread-ID: 1021464
12 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Anzeige
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 Beiträge
Anzeige
nicht die Formel mitkopieren
TomTom

Hi,
Ich habe in meinem Sheet eine Funktion, mit der will ich verschiedene Zeilen kopieren:
MeineQuelle.Rows(lngZeile).Copy Destination:=MeinZiel.Cells(lngZeile, 1)
Wenn ich nun in einer gefundenen Zeile, die kopiert wird, irgendwo eine Formel drin habe, (die sich auf irgend was bezi...
30.01.2009 11:15:07
Thread-ID: 1045327
8 Beiträge
Zeile ausblenden falls kein Wert
Leon

Hi Zusammen
Habe untenstehenden Code versucht, komme aber nicht weiter.
Wenn in der Zelle A12 nichts steht, wollte ich erreichen,daß die ganze Zeile automatisch ausgeblendet wird ohne Commandbutton.
Private Sub Worksheets_activate() If Range("A12").Value = 0 Then Range("A12").En...
05.02.2009 21:01:00
Thread-ID: 1047510
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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