Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenübernahme mit Bedingung

Forumthread: Datenübernahme mit Bedingung

Datenübernahme mit Bedingung
14.04.2005 13:33:18
hans
Hallo,
ich habe die folgende Tabelle:
VRG VERS ST Date1 Date2
1 1 x 01.01.2005 02.01.2005
1 2 x 01.01.2005 03.01.2005
1 3 z 01.01.2005 04.01.2005
1 4 z 01.01.2005 05.01.2005
2 1 x 02.01.2005 10.01.2005
2 2 z 02.01.2005 12.04.2005
2 3 z 02.01.2005 13.04.2005
Aus dieser Tabelle jeweils das erste Date2 übernommen werden, wenn folgende Bedingung erfüllt ist: Status=z und Date1 kleiner Date 2:
Zum Schluß möchte ich die Tabelle folgendermaßen darstellen:
VRG VERS ST Date
1 1 z 04.01.2005
2 2 z 12.04.2005
Weiß hier vielleicht jemand eine Lösung?
Vielen Dank
Hans
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenübernahme mit Bedingung
14.04.2005 14:26:23
Herbert
hallo Hans,
ich habe gesehen,daß du von Fritz auch schon eine Lösung hast...
weil ich sie schon gemacht habe,hier mein Lösungsansatz...
ausgerichtet auf Spalte A-E


Public Sub x()
Dim i, lz%, lzT%
lz = Cells(Rows.Count, 1).End(xlUp).Row
lzT = Cells(Rows.Count, 8).End(xlUp).Row
For i = 2 To lz
   If Cells(i, 3) = "z" And _
     Cells(i, 4) < Cells(i, 5) Then
     lzT = Cells(Rows.Count, 8).End(xlUp).Row + 1
     Range(Cells(i, 1), Cells(i, 3)).Copy Cells(lzT, 8)
     Cells(i, 5).Copy Cells(lzT, 11)
   End If
Next
End Sub

     
gruß Herbert
Anzeige
;

Forumthreads zu verwandten Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Bedingte Formatierung per VBA prüfen?
onkelbobby

Hallo,
in einer Tabelle in Spalte N und O werden zwei Datumswerte angegeben. Mit der Formel
=UND(HEUTE()-N1größer=0;O1-HEUTE()größer=0) (Anm. kann leider keine größer-Zeichen hier angeben)
habe ich als bedingte Fomatierung festgelegt, dass diejenigen Werte, bei denen das heutige Dat...
29.08.2008 12:45:10
Thread-ID: 1005805
6 Beiträge
Anzeige
Bedingte Formatierung, wenn Spalte gefüllt
belanglos

Hallo,
ich habe gerade ein Brett vom Kopf.
Ich möchte mit der "Bedingten Formatierung" ein Tabellenblatt formatieren. Bedingung soll aber sein, dass die die "Bedingte Formatierung" alles formatiert, wenn in Spalte A bspw. der Buchstabe A steht.
Kann mir damit jemand weiterhelfen....
11.09.2008 14:34:00
Thread-ID: 1009128
5 Beiträge
Anzeige
Prüfung: AddIn vorhanden?
Harald

Hallo zusammen!
Habe im Excel ein AddIn das beim Start von Excel geladen wird, und beim Schließen Entladen wird.
Der Code lautet wie folgt:
----------------------
Private Sub Workbook_Open() AddIns("MeinAddIn").Installed = True End Sub
Private Sub Workbook_BeforeClose(C...
16.09.2008 08:47:00
Thread-ID: 1009955
7 Beiträge
Anzeige
Makrosammlung für Super Addin
Rocky

Hallo Excelfans,
ich bin auf der suche nach anregungen für meine Addinsammlung. Hat jemand nützliches was man in einem addin sammeln kann? Auf manche schönen Sachen kommt man erst, wenn man sie sieht.
würde gern Anregungen sammel, sie dann in einem Addin zusammensteleen und Sie es dann...
16.09.2008 12:16:05
Thread-ID: 1010049
4 Beiträge
Bedingte Formatierung über Tabellenblätter
Thomas

Hallo,
ich habe in einem extra Datenblatt welches Stammdaten enthält einen Code für die Formatierung
erzeugt (vier verschiedene Farbe Sollen Verwendung finden).
Wie kann ich ohne Verwendung des Menüs Bedingte Formatierung, in dem mir nur 3 Bedingungen
zur Verfügung stehen, ohne...
12.11.2008 14:06:30
Thread-ID: 1023831
2 Beiträge
VBA 2 Din A 5 auf Din A 4 Drucken ?
Peter

Hallo
Habe auf ein Tab 2 Din A 5 Bereiche erstellt.
Wie kann man per Vba oder Formel die Beiden Bereiche auf Din A 4 Drucken?
Mfg. Peter
01.12.2008 17:56:42
Thread-ID: 1029327
3 Beiträge
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
Suche rückwärts nach Wert wenn Bedingung erfuellt
Horst

Hey !
Ich schreibe suchmakros.
Mir find("suchwert") kann ich nache einem bestimmten Inhalt einen Zelle suchen...
O.K.
jetzt möchte ich nach einem Wert in einer zelle suchen der eine bestimmte Bedingung erfüllt.
Zum Bespiel möchte ich nach einem Datum in einer suchen...
...
13.01.2009 07:45:09
Thread-ID: 1039076
5 Beiträge
Makro aus Worksheet über ein Addin ansprechen
Florian

Guten Morgen,
ich habe ein Addin erstellt, dass automatisch eine Symbolleiste erstellt! Alles OK soweit!
1.
Ich möchte über diese Symbolleiste (aus dem Addin) auf einen Code des geöffneten Worksheets zugreifen. Wie kann ich über die Sybolleiste des Addin`s den Code/das Makro des akt...
05.02.2009 08:23:14
Thread-ID: 1047280
2 Beiträge
Farbe von bedingte Formatierung übertragen
bedingte

Hallo,
Wie kann ich die Farbe von bedingte Formatierung von ZellBereich 2 übertagen nach ZellBereich 1
Hintergrund ist dass in Bereich 2 Prozentuelle anteilige Wert je Warengruppe (WGR) ausgerechnet wird.
Ich suche ein möglichkeit diese Farbe eins zu eins von Bereich 2 nach Bereic...
05.03.2009 12:14:23
Thread-ID: 1056767
3 Beiträge
Bedingte Formatierung-Rahmen für bestimmte Zellen
Peter

Hallo zusammen,
ich möchte in einem Tabellenbereich alle Zellen, die eine Zahl enthalten und daher nicht leer sind, mit einem "Rahmen" versehen.
Ich versuche es z.Zt. mit "bedingter Formatierung" und dann "Formel ist" = Istzahl. Leider funktioniert das nicht. Vielleicht hat jemand von E...
20.03.2009 13:51:29
Thread-ID: 1062187
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige