Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
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
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA für Wenn Dann

VBA für Wenn Dann
13.12.2018 15:25:34
Andreas
Moin zusammen,
ich habe eine Exceldatei zum Disponieren. Leider sind die einzelnen Tage pro Tab.
Jetzt muss ich immer hin und her zwischen den Taps wenn ich wissen will, wohin der Kollege fährt.
Eine einfache "Wenn-Dann" ginge, müsste man aber für jedes Blatt neu machen.
Jetzt habe ich schon hin und her gesucht und probiert, komme aber zu keiner einfachen Lösung.
Ich bräuchte, dass ich ein Schlagwort in eine Zelle eintrage (eine Funktion über ein Modul oder so) z.B. =Vortag.
Dann soll der mir sagen, was in der vorherigen Tabelle steht, egal welchen Namen sie hat. Also glaube ich dann "Sheet Index -1" oder so...
Und wenn in dem Feld der Vortag Tabelle über dem wiederzugebenden Feld etwas steht, soll er den wert ausgeben.
Beispiel im Anhang
https://www.herber.de/bbs/user/126086.xlsx
Ich hoffe Ihr könnt mir hier helfen...
Das Schlagwort will ich in mehreren Zellen einfügen und das Prinzip ist immer das selbe. Nur der Text im Feld darüber und eben die Tabellen-Namen sind Variabel...
Vielen Dank schon einmal
Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: VBA für Wenn Dann
13.12.2018 16:00:02
Bernd
Servus Andreas,
meinst du so?

Sub test()
Dim ws As Worksheet
Dim intWSidx As Integer
For Each ws In ThisWorkbook.Worksheets
With ws
intWSidx = ws.Index
If intWSidx > 1 Then
If Sheets(intWSidx - 1).Cells(1, 2).Value  "" Then
ws.Cells(2, 2).Value = Sheets(intWSidx - 1).Cells(2, 2).Value
End If
End If
End With
Next ws
End Sub
Grüße, Bernd
AW: VBA für Wenn Dann
13.12.2018 16:10:05
Andreas
Hallo,
das sieht, denke ich schon gut aus. Aber was muss ich in die Zelle schreiben auf die sich das beziehen soll?
Ich müsste ja mal in b4 mal in G4 Mal ich F17 das Schlagwort eintragen und der soll mir sagen, was in dem gleichen Feld der Vorhereigen Tabelle steht, wenn in der vorherigen Tabelle in der Zelle darüber etwas steht.
z.B. Tab3 Zelle F15 "=Schlagwort" -> Dann soll er wenn in Tab 2 Zelle F14 etwas steht, den  _
Inhalt von Tab2 Zelle F15 nach Tab 3 Zelle F15 kopieren. Oder
Tab03.01.18 Zelle C7 "=Schlagwort" -> Dann soll er wenn in Tab02.01.18 Zelle C6 etwas steht, den Inhalt von Tab02.01.18 Zelle C7 nach Tab03.01.18 Zelle C7 kopieren.

Anzeige

306 Forumthreads zu ähnlichen Themen

VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Anzeige
Ohne VBA: Wenn Autofilter, dann anderen Zellwert
sunni

Hallo alle zusammen,
gibt es eine Möglichkeit über Excel (ohne VBA) zu sehen, ob ein Autofilter gesetzt ist?
Hintergrund: ich habe eine Formel bei gesetztem Autofilter. Wenn aber kein Autofilter gesetzt ist, soll hier in der Zelle eine 0 oder "" erscheinen.
Geht das?
Vielen Dank...
08.01.2010 12:35:47
Thread-ID: 1128216
8 Beiträge
wenn(isfehler=wahr;dann;sonst in vba
Joachim

Hallo,
ich wollte folgende Formel in vba schreiben:
=WENN(ISTFEHLER(VERGLEICH(B1;Wasserdaten!A:A;0))=WAHR;VERGLEICH(B1;Wasserdaten!A:A;1);VERGLEICH(B1; Wasserdaten!A:A;0))
Mein Code dazu geht auf Fehler:
zeile_ws = WorksheetFunction.if(IsError _
(Match(fdh_nr, Worksheets(...
30.04.2010 13:31:27
Thread-ID: 1154723
4 Beiträge
Anzeige
VBA Formel wenn Uhrzeit dann
Gonzer

Hallo zusammen,
habe folgendes Problem - ich will per VBA eine Formel in eine Zelle schreiben die überprüft ob ein Zellwert im Datumsformat vorliegt. Liegt dieses vor soll der Zellwert übernommen werden, wenn nicht soll die Zahl als Uhrzeit umgewandelt werden.
Hier meine Code Zeile:
...
16.09.2010 17:07:58
Thread-ID: 1178158
5 Beiträge
wie war das... VBA wenn dann ?
amintire

Hallo alle zusammen,
würde gerne in einem Label eine Auskunft geben wenn die UserForm geöffnet wird.
Also Daten stehen in A:B
'Wenn in der Spalte B größer als 1 vorhanden ist, dann soll die Zelle vor der Zahl mit angegeben werden.
=If B > 1 then
=?
oder so ähnlich ? <...
25.02.2011 11:37:33
Thread-ID: 1202920
16 Beiträge
wenn fehler dann sonst mit vba
Erik

Hallo Leute ich versuche einen Forecast zu erstellen und habe folgendes Problem.
Diese Formel:
=WENN(ISTFEHLER(VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B));"";VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B))
Steht in einer Zelle.
Wenn die Leute jetzt in die zelle schreiben ist die formel weg....
24.10.2011 23:00:40
Thread-ID: 1235246
3 Beiträge
VBA Wenn dann
WalterK

Hallo,
ich komme nicht drauf, was ich bei der Definition von ErsteZei angeben muss! ErsteZei soll, wenn E3 Leer ist die Zahl 4 sein, ansonsten die Zahl 3!
So jedenfalls funktionert es nicht:
Sub Test() Dim ErsteZei As Integer ErsteZei = If Range("$E$3") = "" Then 4 Else 3 End If Msg...
11.07.2012 14:21:31
Thread-ID: 1270637
3 Beiträge
VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 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
4
8
7
3
6
4
15
2
2
2
2
3
4
1
1
10
2
1
5
1
5
1
1
6
8