Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
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
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro: Wenn dann

Makro: Wenn dann
26.03.2009 12:47:12
Julia
Hallo in meiner xls siehe:
https://www.herber.de/bbs/user/60693.xls
sind die Spalten A bis C gegeben
Wie kann ich den gelben Bereich (Spalte D) per Makro auffülen
Immer den letzten Status in Spalte C (nach...) in die entsprechende Zelle von Spalte D (Aktueller Status) zu schreiben
Ich brächte dazu ein Makro welches diese Aktion im Tabellenblatt Datenbasis durchführt
Die Anzahl der Vorgänge ist immer variabel. Das Makro soll also bis zur letzten gefüllten Zeile in Spalte A arbeiten

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

Betreff
Datum
Anwender
Anzeige
AW: Makro: Wenn dann
26.03.2009 12:52:51
Mike
Hey Julia,
ist es gezwungen ein Makro? Mittels Formel:
Datenbasis

 ABCD
5Vorgang-111AbschlussWiedergeöffnet 
6Vorgang-111WiedergeöffnetAbschlussAbschluss
7Vorgang-110OffenIn BearbeitungIn Bearbeitung
8Vorgang-109OffenIn Bearbeitung 
9Vorgang-109In BearbeitungAbschlussAbschluss
10Vorgang-108OffenPrüfung 
11Vorgang-108PrüfungAbschlussAbschluss

Formeln der Tabelle
ZelleFormel
D5=WENN(A5<>A6; C5; "")
D6=WENN(A6<>A7; C6; "")
D7=WENN(A7<>A8; C7; "")
D8=WENN(A8<>A9; C8; "")
D9=WENN(A9<>A10; C9; "")
D10=WENN(A10<>A11; C10; "")
D11=WENN(A11<>A12; C11; "")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruss
Mike
Anzeige
AW: Makro: Wenn dann
26.03.2009 12:54:41
Julia
Brauch das als Makro :(
In der Originaltabelle sind es über 20 000 Einträge
Irgendwie machbar?
AW: Makro: Wenn dann
26.03.2009 12:59:41
Oberschlumpf
Hi Julia
Versuch das hier:
Sub sbStatus() Dim loZeile As Long For loZeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Range("A" & loZeile).Value Range("A" & loZeile + 1).Value Then Range("D" & loZeile).Value = Range("C" & loZeile).Value End If Next End Sub


Voraussetzung für den Code:
- die Daten stehen auch in der Originaldatei in den Spalten, wie in der Bsp-Datei
- Daten sind nach Spalte A sortiert
Hilfts?
Ciao
Thorsten

Anzeige
AW: Makro: Wenn dann
26.03.2009 13:05:49
Julia
Klappt Perfekt,
habs leicht angepasst da der aktuelle Status bei mir in Spalte J steht
Klappt jetzt prima
eine Kleinigkeit hätte ich noch. Wie kann ich in Spalte J den Status "alt Belegt" in "Offen" abändern
Kann man das in dieses Makro noch einbauen?
AW: Makro: Wenn dann
26.03.2009 13:12:14
Oberschlumpf
Hi Julia
Auch ich bin keine Maschine.
Ich lese dich hier öfters. Also kann ich davon ausgehen, dass auch dir die Bitte, jeden Beitrag mit einer Begrüßung zu beginnen, bekannt sein sollte.
Bau als 2. Bedingung das hier ein (ungetestet):

If Range("D" & loZeile).Value  "" And Range("D" & loZeile).Value = "alt Belegt" Then
Range("D" & loZeile).Value = "Offen"
End If


Hilfts?
Ciao
Thorsten

Anzeige
AW: Makro: Wenn dann
26.03.2009 13:22:17
Julia
Sorry Thorsten wenn ich die Begrüßung vergessen habe.
Also der Code funzt 1A. Ich habe in einer anderen Mapper einen Button mit dem ich diesen Code ausführe:

Sub aktuellen_Status_ermitteln()
Dim loZeile As Long
With Sheets("Datenbasis")
.Range("J1") = "aktueller Status"
For loZeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Range("A" & loZeile).Value  Range("A" & loZeile + 1).Value Then
Range("J" & loZeile).Value = Range("F" & loZeile).Value
End If
Next
End With
End Sub


Führe ich diesen Code über den Button aus macht er mir nur die Überschrift in J1. Mehr nicht. Führe ich das Makro seperat auf klappt alles prima.
Hier der Code vom Button:


Sub alles_aktualisieren()
Call Tage_berechnen
Call aktuellen_Status_ermitteln
MsgBox "Aktualisierung erfolgreich abgeschlossen!", , "Status Reporting ICeD"
End Sub


Anzeige
AW: Makro: Wenn dann
26.03.2009 13:35:33
Oberschlumpf
Hi Julia
Ändere den entsprechenden Code wie folgt:

For loZeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Range("A" & loZeile).Value  .Range("A" & loZeile + 1).Value Then
.Range("J" & loZeile).Value = .Range("F" & loZeile).Value
End If
Next


Dein Code bezieht sich mit allen Zeilen ohne voranstehenden Punkt auf das aktuelle Tabellenblatt.
Der neue Code bezieht sich mit dem voranstehenden Punkt auf das Tabellenblatt "Datenbasis", welches durch With "Datenbasis" vorgegeben wird.
Auch die Codezeilen, die den Wert "alt Belegt" in "Offen" ändern sollen, musst du anpassen (Punkt voranstellen)
Hilfts?
Ciao
Thorsten

Anzeige
AW: Makro: Wenn dann
26.03.2009 13:42:48
Julia
GENIAL
VIELEN DANK!!!!
AW: Makro: Wenn dann
26.03.2009 13:57:35
Julia
Hi Thorsten sorry wenn ich mich nochmal melde aber iwie krieg deinen Vorschlag:
If Range("J" & loZeile).Value "" And Range("J" & loZeile).Value = "alt Belegt" Then
Range("J" & loZeile).Value = "Offen"
End If
in das ganze Makro mit rein?

Sub aktuellen_Status_ermitteln()
Dim loZeile As Long
With Sheets("Datenbasis")
.Range("J1") = "aktueller Status"
For loZeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Range("A" & loZeile).Value  .Range("A" & loZeile + 1).Value Then
.Range("J" & loZeile).Value = .Range("F" & loZeile).Value
End If
Next
End With
End Sub


Anzeige
AW: Makro: Wenn dann
26.03.2009 14:04:40
Oberschlumpf
Hi Julia
So:

For loZeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Range("A" & loZeile).Value  .Range("A" & loZeile + 1).Value Then
.Range("J" & loZeile).Value = .Range("F" & loZeile).Value
End If
If .Range("D" & loZeile).Value  "" And .Range("D" & loZeile).Value = "alt Belegt" Then
.Range("D" & loZeile).Value = "Offen"
End If
Next


Gehts?
Ciao
Thorsten

AW: Makro: Wenn dann
26.03.2009 14:20:31
Julia
Perfekt jetzt klappt alles
Vielen Vielen Dank!!!

305 Forumthreads zu ähnlichen Themen

Makro: Wenn Zelle Wert dann Spalten ausblenden
Herr

Hallo Zusammen,
ich brauche dringend Hilfe bei Makros!
Zum Thema:
In C7 soll ein Wert eingetragen werden, der das ein-/ausblenden von Spalten beeinflusst.
Bedingung 1: Wenn C7="" oder C1=1 dann soll Spalte H bis S ausgeblendet sein
Bedingung 2: Wenn C7=2 dann soll lediglich...
11.01.2016 23:14:08
Thread-ID: 1468313
3 Beiträge
Anzeige
Makro: Wenn Zelle Wert dann Spalten ausblenden
Herr

Hallo Zusammen,
ist es möglich in unten aufgeführten Makro eine Zeilenabhängigkeit zu integrieren? Sprich das Ein- und Ausklappen der u.a. Spalten soll nur für die Zeilen 9-214 stattfinden. Alle anderen Zeilen bleiben von dem Ein-/Ausklappen unberührt?
Und wie müsste dann der unten steh...
08.02.2016 17:11:04
Thread-ID: 1474134
2 Beiträge
Makro in Wenn_Dann Abfrage
hubert

Wie baut man ein Makro in eine Wenn_Dann Abfrage ein? Geht das überhaupt?
Ich möchte, wenn der Wert einer Zelle eine fixe Zahl ist, dass dann ein Makro ausgeführt wird!Danke im Voraus für die guten tipps 1
:-)) Hubert
03.10.2002 13:56:53
Thread-ID: 165902
2 Beiträge
Anzeige
Zwei Makros starten mit Wenn Dann Sonst
mausi

Hallo Leute,
da ich ein richtiger Anfänger bin, brauch ich eure Hilfe.
Ich möcht in einer Tabelle mit der -Wenn- Funktion zwei Makros starten. Die Makros fügen jeweils ein Bild ein.
Es soll so funktionieren: Wenn Zahl in A1-gerade - Dann starte Makro(sack) - Sonst starte Makro( _
22.12.2018 02:02:49
Thread-ID: 1664231
2 Beiträge
Makro - Zeile einfügen/kopieren wenn dann Funktion
Timo

Hallo Zusammen,
ich möchte gerne in einem Wartungskalender mit dem Setzen des Häkchens in einer Checkbox/Kontrollkästchen eine neue Spalte im Tabellenblatt2 einfügen.

In der vierten Zeile im Tabellenblatt 2 sind bereits eine Inhalte mit einer Dropdown Funktion hinterlegt. Daher kan...
20.02.2019 15:59:05
Thread-ID: 1676768
2 Beiträge
Makro für wenn / dann
Thomas

Hallo,
leider bin ich kein VBA As. Könnte mir jemand helfen, folgenden Befehl zu schreiben ?
Wenn in Zeile 40 was steht, dann soll er nix machen.
Wenn nicht, dann solle er Zeie 1 löschen
Das wäre riesig nett.
Herzlichen Dank im Voraus
Thomas
15.11.2002 13:38:13
Thread-ID: 181821
3 Beiträge
makro bedingt ausführen (wenn, dann)
max

hallo,
folgendes problem. es geht haupsächlich um 2 makros und eine zelle. das 1 makro setzt beim ausführen die aktuelle zeit in zelle A1. makro 2 hat die selbe funktion trägt die zeit aber in zelle b2 ein.
nun ist meine frage, ob ich mit einer "wenn dann" funktion in einer zelle, wenn al...
13.02.2003 16:13:09
Thread-ID: 218742
2 Beiträge
[MAKRO] Wenn, dann schreibe
Chris
Hallo!

Ich habe folgendes Problem:
Eigentlich brauche ich nur die WENN-Funktion mit einer kleiner Änderung. Ich möchte nur, dass wenn eine bestimmte Bedinung wahr ist, der DANN-Wert in eine fremde Zelle geschrieben wird. Momentan wird ja der Dann-Wert in die Zelle eingetragen, in der au...
28.10.2003 20:24:14
Thread-ID: 330136
14 Beiträge

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
1
1
2
1
1
2
1
13
6
1
5
3
5
1
2
2
9
1
5
9
1
2
3