Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1572to1576
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
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen und Formeln mit Bedingung einfügen

Zeilen und Formeln mit Bedingung einfügen
07.08.2017 09:49:31
Stefan
Hallo,
ich würde bitte Hilfe brauchen um eine Tabelle per Makro aufzubereiten, da diese Tabelle teilweise täglich neu angeliefert wird und manuell ist das nicht zu schaffen.
Es soll beim erfüllen einer Bedingung eine Zeile überhalb eingefügt werden und auch Formeln.
Die Tabelle ist wie folgt aufgebaut:
1. Zeile = Überschriften
Ab der 2. Zeile Daten in den Spalten A bis O.
Nun soll jeweils eine leere Zeile oberhalb eingefügt werden, wenn in Spalte E sich der Zellinhalt ein oder mehrfach wiederholt in der/den nächsten Zeile/b und es sollen Formeln in dieser leeren Zeile eingefügt werden - kommt der Inhalt in Spalte E nur einmal vor, soll nichts passieren.
Userbild

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen und Formeln mit Bedingung einfügen
07.08.2017 09:51:56
Stefan
In diesem Beispiel sollte nur bei der Zeile 4 mit dem Artikel: BOX ONE Carbon MTB DH handlebar 35mm clamp, 800mm, black eine neue Zeile mit Formeln eingefügt werden.
AW: Zeilen und Formeln mit Bedingung einfügen
07.08.2017 10:59:26
Michael
Hallo!
Folgender Code geht Deine Datensätze von unten nach oben durch (nur Spalte "A", also überprüft wird ob die Artikelnummern gleich sind), und fügt nach jedem Wiederholungsblock eine Zeile ein - in Deinem Beispiel wird damit zwischen Zeile 3 und 4 eine neue Zeile eingefügt.
und es sollen Formeln in dieser leeren Zeile eingefügt werden
Damit ist natürlich nichts anzufangen, da niemand weiß welche Formeln das sein sollen.
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets(1)
Dim i&, j&
Application.ScreenUpdating = False
With Ws
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(i, 1) = .Cells(i - 1, 1) Then
If .Cells(i - 2, 1)  .Cells(i, 1) Then
.Cells(i - 1, 1).EntireRow.Insert
Else:
j = i - 3
Do
j = j - 1
Loop Until .Cells(j, 1)  .Cells(i, 1)
.Cells(j + 1, 1).EntireRow.Insert
i = j
End If
End If
Next i
End With
End Sub
Soweit mal von meiner Seite.
LG
Michael
Anzeige
AW: Zeilen und Formeln mit Bedingung einfügen
07.08.2017 13:20:03
Stefan
Hallo Michael,
wow besten Dank, funktioniert super!
Zuerst dachte ich es passiert nichts, aber die Änderungen laufen ja von unten nach oben durch die Tabelle :)
Wegen Formel, ja entschuldigung ohne Infos ist das natürlich schwierig.
Im Prinzip sollen Teile aus der darunter liegenden Zeile in Zellen kopiert werden, teilweise Text und teilweise sollen Rechenvorgänge durchgeführt werden:
Also zB in der neuen leeren Zeile 20 (fiktiv)
A20: =E21
F20: =E21*1,05
Der Bezug der Formeln in der jeweils neuen leeren Zeile müsste immer auf die darunterliegende Zeile sein, aber wie mache ich das?
Viele Dank schon mal!
Anzeige
Ergänzt...
07.08.2017 14:52:04
Michael
Hallo Stefan!
Mein voriger Code ergänzt, es werden nun auch die von Dir gewünschten Zell-Formeln eingetragen:
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets(1)
Dim i&, j&
Application.ScreenUpdating = False
With Ws
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(i, 1) = .Cells(i - 1, 1) Then
If .Cells(i - 2, 1)  .Cells(i, 1) Then
.Cells(i - 1, 1).EntireRow.Insert
.Cells(i - 1, 1).FormulaR1C1 = "=R[1]C[4]"
.Cells(i - 1, 6).FormulaR1C1 = "=R[1]C[-1]*1.0"
Else:
j = i - 2
Do
j = j - 1
Loop While .Cells(j, 1) = .Cells(i, 1)
.Cells(j + 1, 1).EntireRow.Insert
.Cells(j + 1, 1).FormulaR1C1 = "=R[1]C[4]"
.Cells(j + 1, 6).FormulaR1C1 = "=R[1]C[-1]*1.05"
i = j + 1
End If
End If
Next i
End With
End Sub
Passt?
LG
Michael
Anzeige
AW: Ergänzt...
07.08.2017 16:27:35
Stefan
Hi,
danke, funktioniert fast!
Also die Multiplikation wird durchgeführt:
.Cells(j + 1, 6).FormulaR1C1 = "=R[1]C[-1]*1.05"
Aber hier wird nicht der Text der Zelle kopiert:
.Cells(j + 1, 1).FormulaR1C1 = "=R[1]C[4]"
In der Ergebnisszelle steht:
=R[1]C[4]
AW: Ergänzt...
07.08.2017 16:39:01
Michael
Hallo!
Dann mal auf Nummer sicher, tausche diese Stellen im Code:
.Cells(i - 1, 1).FormulaR1C1 = "=R[1]C[4]"
.Cells(i - 1, 6).FormulaR1C1 = "=R[1]C[-1]*1.0"


.Cells(j + 1, 1).FormulaR1C1 = "=R[1]C[4]"
.Cells(j + 1, 6).FormulaR1C1 = "=R[1]C[-1]*1.05"
damit
.Cells(i - 1, 1).FormulaR1C1Local = "=Z(1)S(4)"
.Cells(i - 1, 6).FormulaR1C1Local = "=Z(1)S(-1)*1.05"
bzw.
.Cells(j + 1, 1).FormulaR1C1Local = "=Z(1)S(4)"
.Cells(j + 1, 6).FormulaR1C1Local = "=Z(1)S(-1)*1.05"
LG
Michael
Anzeige
AW: Ergänzt...
07.08.2017 16:55:50
Stefan
Jetzt bekomme ich leider eine Fehlermeldung: Laufzeitenfehler 1004
Anwendungs- oder objektdefinierter Fehler
Beim Debuggen wird die Zeile gelb markiert:
.Cells(j + 1, 6).FormulaR1C1Local = "=Z(1)S(-1)*1.05"
Kann ich nicht nachvollziehen...
07.08.2017 17:01:01
Michael
Stefan,
...bei mir läuft das. Eine Bsp-Mappe mit Deinen echten Verhältnissen (nicht notwendigerweise echten Daten!) wäre evtl. hilfreich. Aber ich bin vermutlich heute schon weg, melde mich erst morgen wieder.
LG
Michael
AW: Kann ich nicht nachvollziehen...
07.08.2017 17:28:22
Stefan
Hi Michael,
ich glaube ich (ja klingt merkwürdig;) habe den Fehler gefunden - die Formartierung der Reihe A ist Text und daher wird das was aus dem VBA kommt auch als Text eingesetzt und nicht als Formel...
Habe jetzt am Anfang folgendes ins Makro geschrieben (mit Makro Recorder aufgezeichnet und kopiert):
Columns("A:A").Select
Selection.NumberFormat = "General"
Und nun läuft es durch - ich dreh total am Rad :)
DANKE Dir! VG Stefan
Anzeige
Na super! Freut mich, Danke für die Rückmeldung!
07.08.2017 17:33:53
Michael

325 Forumthreads zu ähnlichen Themen

Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Anzeige
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 Beiträge
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Anzeige
VBA - Ganzer Bildschirm ein/aus
Klaus

Verehrte EX-Gurus!
Ich habe mir in Excel ein CD-Archiv angelegt, das ich bequem über einfache Makros auf meine Bedürfnisse abgestimmt steuern kann.
Unter anderem kann ich den "Ganzen Bildschirm" ein- und ausschalten - ich wollte diese Prozedur mit Variable und Not Variable auf ein Makro...
08.11.2008 08:21:33
Thread-ID: 1022845
3 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Zellenformat in Formeln
Larass

Hallo,
ich möchte in einer Zelle links von einem Ergebnis einen string anzeigen, jedoch nur wenn auch ein ergebnis in der Zelle steht.
Konkret habe ich z.B. als Ergebnis eine Spannung Sigma,st
Sobald ich eine Formel eingebe wird aber die Formatierung zerschossen, sprich das Sigma wi...
16.12.2008 16:42:12
Thread-ID: 1033346
6 Beiträge
Formatproblem in Formel
martin

Hallo nochmal! :-)
Mein Problem:
In Zelle A1 steht ein Datum. Formatiert auf "Datum, Typ: 14.03.01"
In Zelle A2 soll neben Text auch das Datum (+14 Tage) dargestellt werden.
Also so:
="Bitte überweisen Sie den Betrag bis zum "&A1+14&" auf ....."
Das Problem: Das...
19.12.2008 15:18:41
Thread-ID: 1034180
3 Beiträge
Formatierung mit in die Formel einarbeiten
Jochen

Hallo,
habe folgende Formel:
=WENN(A8"";VERKETTEN(SVERWEIS(A8;B2:E5;2;FALSCH);ZEICHEN(10);SVERWEIS(A8;B2:E5;3;FALSCH);" / "; SVERWEIS(A8;B2:E5;4;FALSCH));"") .
Diese Formel verkettet "Name" - "Vorname" - "/" und eine weitere "Bezeichnung" miteinander.
Die Zelle ist Fett und Schr...
12.01.2009 10:57:00
Thread-ID: 1038800
4 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
1
3
6
2
5
2
3
5
2
3
7
5
3
2
5
3
2
2
3
6
8
5
3
3
2