Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.12.2016 12:42:40 |
swizzmade |
|
|
|
06.12.2016 17:59:19 |
Onur |
|
|
|
06.12.2016 18:54:48 |
swizzmade |
|
|
|
06.12.2016 18:58:24 |
Onur |
|
|
|
06.12.2016 19:14:18 |
swizzmade |
|
|
|
06.12.2016 19:34:44 |
Onur |
|
|
|
07.12.2016 20:36:16 |
swizzmade |
|
|
|
07.12.2016 21:25:14 |
Onur |
|
|
|
07.12.2016 21:33:19 |
Onur |
|
|
Zeile einfärben |
07.12.2016 22:17:32 |
swizzmade |
|
|
|
07.12.2016 22:39:53 |
Onur |
|
|
Von:
swizzmade |
Datum:
07.12.2016 22:17:32 |
Views:
694 |
Rating:
|
Antwort:
|
Thema:
Zeile einfärben |
Hallo Onur,
Ich weiss was du meinst,
für mich wäre es einfacher, wenn diese Formel
=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:
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?
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
06.12.2016 17:59:19 |
Onur |
|
|
|
06.12.2016 18:54:48 |
swizzmade |
|
|
|
06.12.2016 18:58:24 |
Onur |
|
|
|
06.12.2016 19:14:18 |
swizzmade |
|
|
|
06.12.2016 19:34:44 |
Onur |
|
|
|
07.12.2016 20:36:16 |
swizzmade |
|
|
|
07.12.2016 21:25:14 |
Onur |
|
|
|
07.12.2016 21:33:19 |
Onur |
|
|
Zeile einfärben |
07.12.2016 22:17:32 |
swizzmade |
|
|
|
07.12.2016 22:39:53 |
Onur |
|
|