Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
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
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn bestimmter Monat, dann Zelle markieren

wenn bestimmter Monat, dann Zelle markieren
29.07.2015 13:29:30
Andi
Hallo
bräuchte bitte eure Hilfe :)
Ich habe ein Workbook mit mehreren Tabellen
wenn ich jetzt zwischen den verschiedenen Tabellen wechsle, will ich, dass er mir je nach dem momentanen Monat eine bestimmte Zelle markiert
Beispiel:
Heute ist der 29.07.2015 -- sozusagen ist Juli relevant
daher soll das Programm wenn ich das Tabellenblatt öffne die Zelle B12 markieren
wenn jetzt August wäre, soll er z.B. A14 markieren.. etc.
sollte mit vba gelöst werden
thx in advance
Andi

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

Betreff
Datum
Anwender
Anzeige
AW: wenn bestimmter Monat, dann Zelle markieren
29.07.2015 13:34:43
Andi
bisher hab ich es so probiert:
If Month(1) Then
Range("A6").Select
ElseIf Month(2) Then
Range("A12").Select
.
.
.
End If
Jedoch markiert er dann immer A6, auch wenn Februar, sprich Monat 2 wäre
lg
Andi

AW: wenn bestimmter Monat, dann Zelle markieren
29.07.2015 13:40:26
Sepp
Hallo Andi,
deine Angaben, welche Zelle ausgewählt werden soll, schwankt aber ziemlich hin und her!
In das Modul "DieseArbeitsmappe"
' **********************************************************************
' Modul: DieseArbeitsmappe  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Cells(Month(Date) * 6, 1).Select
End Sub


Gruß Sepp

Anzeige
AW: wenn bestimmter Monat, dann Zelle markieren
29.07.2015 13:53:55
Andi
Hallo Sepp
Danke schon mal für die Antwort
ich habe es jetzt so, zeigt mir aber immer das letzte an, sprich zeile 17.. 

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Cells(Month(1) * 6, 1).Select
Sh.Cells(Month(2) * 7, 1).Select
Sh.Cells(Month(3) * 8, 1).Select
Sh.Cells(Month(4) * 9, 1).Select
Sh.Cells(Month(5) * 10, 1).Select
Sh.Cells(Month(6) * 11, 1).Select
Sh.Cells(Month(7) * 12, 1).Select
Sh.Cells(Month(8) * 13, 1).Select
Sh.Cells(Month(9) * 14, 1).Select
Sh.Cells(Month(10) * 15, 1).Select
Sh.Cells(Month(11) * 16, 1).Select
Sh.Cells(Month(12) * 17, 1).Select
End Sub
lg
Andi

Anzeige
AW: wenn bestimmter Monat, dann Zelle markieren
29.07.2015 13:57:21
Sepp
Hallo Andi,
was hat an meinem Code nicht funktioniert?
Bei deinem Code ist Month() immer 1, weil ein Datum als Parameter erwartet wird, bei dir also vom 01.01.1900 bis zum 12.01.1900.
Gruß Sepp

AW: wenn bestimmter Monat, dann Zelle markieren
29.07.2015 14:03:21
Andi
Hallo
bei deinem Code markiert er immer die Zeile 119 in der Spalte A

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Cells(Month(Date) * 6, 1).Select
Sh.Cells(Month(Date) * 7, 1).Select
Sh.Cells(Month(Date) * 8, 1).Select
Sh.Cells(Month(Date) * 9, 1).Select
Sh.Cells(Month(Date) * 10, 1).Select
Sh.Cells(Month(Date) * 11, 1).Select
Sh.Cells(Month(Date) * 12, 1).Select
Sh.Cells(Month(Date) * 13, 1).Select
Sh.Cells(Month(Date) * 14, 1).Select
Sh.Cells(Month(Date) * 15, 1).Select
Sh.Cells(Month(Date) * 16, 1).Select
Sh.Cells(Month(Date) * 17, 1).Select
End Sub
lg
Andi

Anzeige
AW: wenn bestimmter Monat, dann Zelle markieren
29.07.2015 14:04:51
Sepp
Hallo Andi,
da wären wir wieder bei deinen widersprüchlichen Angabe, was den nun markiert werden soll.
Im Januar Zeile?
Im Februar Zeile?
Gruß Sepp

AW: wenn bestimmter Monat, dann Zelle markieren
29.07.2015 14:06:16
Andi
Hallo,
sorry für die schlechte Angabe
Im Jänner Zeile A6
Februar A7
.
.
.
Dezember A17
lg
Andi

AW: wenn bestimmter Monat, dann Zelle markieren
29.07.2015 14:07:13
Sepp
Hallo Andi,
' **********************************************************************
' Modul: DieseArbeitsmappe  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Cells(Month(Date) + 5, 1).Select
End Sub


das war's schon, du brauchst nichts ändern!
Gruß Sepp

Anzeige
AW: wenn bestimmter Monat, dann Zelle markieren
29.07.2015 14:09:28
Andi
Hallo Sepp,
funktioniert!
Danke für deine Bemühungen
lg
Andi

Außerdem markiert mein Code im Juli...
29.07.2015 14:05:57
Sepp
... die Zelle A42!
Gruß Sepp

341 Forumthreads zu ähnlichen Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
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
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Zelle enthält, dann
Rudolph

Hallo,
ich möchte mit .xls meine Kontodaten auswerten. Die Kontoauszugsdaten stehen in Spalte "D" auf dem Sheet "Kontodaten" Im selben Sheet Spalte "E" steht der Betrag. Das Sheet "Bezüge" enthält Namensfelder (z.B. "Auto" mit einer Auflistung der Tankstellen, KFZ-Versicherung o.ä.; "Lebens...
23.05.2009 14:30:40
Thread-ID: 1076853
5 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 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
3
15
5
2
2
7
2
3
4
4
2
9
2
6
9
8
5
2
10
2
3
5
2
3
3