Thema Datum  Von Nutzer Rating
Antwort
06.12.2016 12:42:40 swizzmade
Solved
06.12.2016 17:59:19 Onur
NotSolved
06.12.2016 18:54:48 swizzmade
NotSolved
06.12.2016 18:58:24 Onur
NotSolved
06.12.2016 19:14:18 swizzmade
NotSolved
06.12.2016 19:34:44 Onur
NotSolved
07.12.2016 20:36:16 swizzmade
NotSolved
07.12.2016 21:25:14 Onur
NotSolved
07.12.2016 21:33:19 Onur
NotSolved
Blau Zeile einfärben
07.12.2016 22:17:32 swizzmade
NotSolved
07.12.2016 22:39:53 Onur
Solved

Ansicht des Beitrags:
Von:
swizzmade		 Datum:
07.12.2016 22:17:32		 Views:
879		 Rating:
     
Antwort:
  Ja
Thema:
Zeile einfärben

Hallo Onur,

 

Ich weiss was du meinst, 
für mich wäre es einfacher, wenn diese Formel

?
1
 
?
1
=WENN(ZS4<>"";(WENN(ZS(1)="";JAHR(HEUTE())-ZS(-1);ZS(1)-ZS(-1)));"")

Irgend wie in den VBA Code eingebaut werden könnte.

 

Die eingabemaske im code wäre:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub btSave_Click()
     
     If cbEdit Then
        lRow = Val(cbEdit.Caption)
    Else
        lRow = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
    End If
     
    ActiveSheet.Range("A" & lRow + 1).Formula = cb_anstellung
    ActiveSheet.Range("B" & lRow + 1).Formula = stv_nummer
    ActiveSheet.Range("C" & lRow + 1).Formula = js_nummer
    ActiveSheet.Range("D" & lRow + 1).Formula = name1
    ActiveSheet.Range("E" & lRow + 1).Formula = vorname
    ActiveSheet.Range("F" & lRow + 1).Formula = bday
    ActiveSheet.Range("G" & lRow + 1).Formula = email
    ActiveSheet.Range("H" & lRow + 1).Formula = "'" & mobile
    ActiveSheet.Range("I" & lRow + 1).Formula = strassen
    ActiveSheet.Range("J" & lRow + 1).Formula = plz
    ActiveSheet.Range("K" & lRow + 1).Formula = ort
    ActiveSheet.Range("L" & lRow + 1).Formula = eintritt
    ActiveSheet.Range("N" & lRow + 1).Formula = Austritt
    ActiveSheet.Range("O" & lRow + 1).Formula = vorstand
    ActiveSheet.Range("P" & lRow + 1).Formula = Leiter
    ActiveSheet.Range("M" & lRow + 1).FormulaLocal = "=WENN(ZS4<>"";(WENN(ZS(1)="";JAHR(HEUTE())-ZS(-1);ZS(1)-ZS(-1)));"")"
     
    Unload Me
End Sub

 

Das wäre am besten. Jedoch geht das so wie ich es möchte nicht. Verstehst du mein Problem?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.12.2016 12:42:40 swizzmade
Solved
06.12.2016 17:59:19 Onur
NotSolved
06.12.2016 18:54:48 swizzmade
NotSolved
06.12.2016 18:58:24 Onur
NotSolved
06.12.2016 19:14:18 swizzmade
NotSolved
06.12.2016 19:34:44 Onur
NotSolved
07.12.2016 20:36:16 swizzmade
NotSolved
07.12.2016 21:25:14 Onur
NotSolved
07.12.2016 21:33:19 Onur
NotSolved
Blau Zeile einfärben
07.12.2016 22:17:32 swizzmade
NotSolved
07.12.2016 22:39:53 Onur
Solved