Supportnet / Forum / Tabellenkalkulation
Zwei Makro-Problemchen
Frage
Ich möchte in einer Tabelle zwei Makro integrieren;
1. Mit Workbook open möchte in einer Spalte, in welcher die Kalenderwoche als Zahl eingefügt ist auf die aktuelle Woche gelangen.
2. Weiter möchte ich in einer anderen Spalte erreichen, dass wenn in einer Zelle ein bestimmtes Zeichen steht (z.B. ein 'X') die betreffende Zeile automatisch ausgeblendet wird.
Besten Dank im Voraus für Eure Hilfe
Antwort 1 von Beverly
Hi,
zu 1. Löse das Problem mit der Funktion Find
zu 2. integriere den entsprechenden Code in das Worksheets_Change Ereignis z.B. in dieser Form
Bis später,
Karin
zu 1. Löse das Problem mit der Funktion Find
zu 2. integriere den entsprechenden Code in das Worksheets_Change Ereignis z.B. in dieser Form
If Target = "X" Then Target.EntireRow.Hidden = True
Bis später,
Karin
Antwort 2 von Rickie
Hallo Karin
Besten Dank für die schnelle Hilfe;
50% hat geklappt, d.h. das Zeilen ausblenden.
Das mit der Funktion Find war mir schon klar - auch könnte ich so z.B. ein Datum finden - aber 'what' suche ich, wenn ich die aktuelle Kalenderwoche finden will???
Besten Dank für die schnelle Hilfe;
50% hat geklappt, d.h. das Zeilen ausblenden.
Das mit der Funktion Find war mir schon klar - auch könnte ich so z.B. ein Datum finden - aber 'what' suche ich, wenn ich die aktuelle Kalenderwoche finden will???
Antwort 3 von nighty
hi all :-)
ein beispiel
gruss nighty
zelle a1 bzw Sheets(1).Cells(1, 1) wäre der eintrag der kalenderwoche
If Format(CDate(Sheets(1).Cells(1, 1)), "ww", vbMonday, vbFirstFourDays) = DeineKalenderwoche Then
rem DeinCode
End If
ein beispiel
gruss nighty
zelle a1 bzw Sheets(1).Cells(1, 1) wäre der eintrag der kalenderwoche
If Format(CDate(Sheets(1).Cells(1, 1)), "ww", vbMonday, vbFirstFourDays) = DeineKalenderwoche Then
rem DeinCode
End If
Antwort 4 von nighty
hi all :-)
ups was durcheinandergeraten
gruss nighty
eingabe der kalenderwoche
a1 wird geprueft auf die angegebene kalenderwoche
Kalenderwoche = InputBox(Prompt:="Kalenderwoche")
If Format(CDate(Sheets(1).Cells(1,1)), "ww", vbMonday, vbFirstFourDays) = Kalenderwoche Then
End If
ups was durcheinandergeraten
gruss nighty
eingabe der kalenderwoche
a1 wird geprueft auf die angegebene kalenderwoche
Kalenderwoche = InputBox(Prompt:="Kalenderwoche")
If Format(CDate(Sheets(1).Cells(1,1)), "ww", vbMonday, vbFirstFourDays) = Kalenderwoche Then
End If
Antwort 5 von nighty
hi beverly :-)
allerdings hab ich es noch nicht geschafft diese anweisung mit der findfunction zu benutzen,wenn du ein beispiel haettest :-))
gruss nighty
allerdings hab ich es noch nicht geschafft diese anweisung mit der findfunction zu benutzen,wenn du ein beispiel haettest :-))
gruss nighty