Problem mit Range Methode

[Glausius]

Hallo Frank,

nenne die Prozedur in
Private Sub Workbook_SheetActivate(ByVal Sh As Objekt)
um und lege sie statt hinter das Tabellenblatt hinter "DieseArbeitsmappe"-

[ralf_b]

wieso in Sheet_Activate?    die läuft nur einmal und nicht bei jedem Eintrag.

@FrankyHB 

die Prozedur funktioniert für alle Sheets außer Tabelle3.  Sofern dies andern Sheets auch gleich aufgebaut sind. d.h. in Spalte F wird der Urlaub markiert.

[FrankyHB]

Ich habe die Prozedur jetzt in jedem Arbeitsblatt hinterlegt



Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub

    If Target.Column <> 6 Then Exit Sub

    Application.EnableEvents = False

    If Target.Value = "U" Then Target.Offset(, -1) = 8

    If Target.Value = "K" Then Target.Offset(, -1) = 7.8

    If Target.Value = "A" Then Target.Offset(, -1) = ""

    If Target.Value = "" Then Target.Offset(, -1) = ""

    Application.EnableEvents = True

End Sub





Es funktioniert !!!



Dafür schon mal vielen Dank an euch alle !



Jetzt bin ich am überlegen wie ich es hinbekomme wenn in Spalte 6 "A"  oder "" steht, das auch die Inhalte der Spalten B, C, und D gellöscht werden



mit

If Target.Value = "A" Then Target.Offset(, -1) = "" And Target.Offset(, -2) = "" And Target.Offset(, -3) = "" And Target.Offset(, -4) = ""

klappt es leider nicht.



bzw. wie ich diese Rechenoption in VBA umsetzen kann


=WENN(ODER(F6="u";F6="su");$H$3;WENN(UND(F6<>"";F6<>"A";F6<>"KuA_halb";F6<>"W");$D$4;WENN(G6<0;(C6-B6)*24-D6+24;(C6-B6)*24-D6)+WENN(F6="KuA_halb";$D$4/2;0+WENN(F6="W";$H$4))))


Lieben Gruss Frank

[Gast 123]

Hallo Frank

wie ich sehe hat es da viele Antworten gegeben.  Schaue gerade mal wieder ins Forum rein und habe auch eine Lösung parat.
Die 1. Variante dürfte dir bekannt sein, nur eine andere Schreibweise statt AND. Mit AND klappt das nicht!! Aber mit einzlenen Offsets.
Die 2. Variante benutzen VBA Fortgeschrittene weil die Schreibweise kürzer ist. Cells(Target.Row, 2) ist Spalte B in der Target Zeile.
Mit Resize(1, 3) erweitere ich den Bereich um 3  Spalten nach rechts. Das ist alles. Beides funktioniert. Jeztzt hast du freie Auswahl.

mfg Gast 123

Code:

'1.Variante so:
If target.Value = "A" Or target.Value = "" Then
   target.Offset(, -1) = ""
   target.Offset(, -2) = ""
   target.Offset(, -3) = ""
   target.Offset(, -4) = ""
End If


'oder 2.Variante so:
If target.Value = "A" Or target.Value = "" Then
   Cells(target.Row, 2).Resize(1, 3) = ""
End If

---

Nachtrag   Sorrry das ich dich nicht darauf aufmerksam gemacht habe die Punkt vor Range und Cells zu löschen. Das ist für Progammierer so selbstverständlich das ich nicht mehr daran gedacht habe dich als Anfänger darauf aufmerksam zu machen.  Die Formel ist mir zu hoch!

[FrankyHB]

Das klappt leider nicht, es wird dennoch nur der Wert aus Spalte 5 gelöscht.

[RPP63]

schlaue Sprüche sind hier nicht gefragt sondern Lösungen.

Dann nennen wir es doch einfach mal schlaue Lösungen …

Wenn du nichts sinnvolles zu dem Problem beitragen kannst dann halte dich raus und stiehl nicht unsere Zeit.

Mit Verlaub:
Ich dachte immer, dass der Fragende die Zeit der Helfer "stiehlt".
Da die das aber freiwillig machen, sollte man es eher borgen nennen.
Borgen deshalb, weil ein Forum keine Einbahnstraße ist, sondern sicherlich auch von Dir bald wertvolle Tipps an andere Fragende gegeben werden.

Und jetzt zum Thema:
Statt eine simple Formel einzutragen, machst Du hier auf schlau und willst mit Macht VBA ins Spiel bringen.
Ich verrate Dir noch etwas:
Der Vorschlag von Klaus-Dieter war der einzig wirklich zielführende!
Mache eine Jahresliste, filtere sie bei Bedarf nach Monat und nutze Formeln, die auf TEILERGEBNIS() basieren!
(zur simpelsten WENN- oder VERWEIS-Formel schreibe ich erst gar nix, weil Du ja lieber durch Zellen iterierst)

Alles klar?!

Das will ich doch hoffen!

[FrankyHB]

Hallo Gast 123,

vielen Dank nochmals, jetzt läuft es so wie gewünscht.

ich habe aber noch eine Frage, kann ich anstelle eines festen Wertes auch auf den Inhalt einer Zelle zugreifen?

If Target.Value = "U" Then Target.Offset(, -1) = 7.8

also etwa so

If Target.Value = "U" Then Target.Offset(, -1) = ("A2")

Gruss Frank

[ralf_b]

 Target.Offset(, -1) = ("A2")
 Target.Offset(, -1).value= [A2]
 Target.Offset(, -1).value = Range("A2").value
 Target.Offset(, -1).value= cells(2,1).value

Aber mal ganz ehrlich. Ich dachte du wärest über solche Fragen schon hinaus. 

[FrankyHB]

Leider bin ich über solche Fragen noch nicht hinaus.

Aber an jeder Aufgabe wächst man ja bekanntlich 

Aber vielen Dank nochmals.

Gruss Frank

[Kuwer]

Leider bin ich über solche Fragen noch nicht hinaus.

Aber an jeder Aufgabe wächst man ja bekanntlich 

Ja klar: https://www.clever-excel-forum.de/Thread...#pid216752