Thema Datum  Von Nutzer Rating
Antwort
20.08.2017 12:27:31 Chris
NotSolved
Blau Zellenauswertung und Zuordnung
 20.08.2017 15:49:51 Mackie
NotSolved
20.08.2017 19:40:02 Chris
NotSolved
20.08.2017 21:44:17 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
20.08.2017 15:49:51		 Views:
579		 Rating:
     
Antwort:
  Ja
Thema:
Zellenauswertung und Zuordnung

Versuch das mal:

Dim Ti(3), NachZ(3), NachS(3), Titel, n, found
Ti(0) = "Kind1": NachZ(0) = 10:
Ti(1) = "Kind2": NachZ(1) = 10:
Ti(2) = "Mama": NachZ(2) = 11:
Ti(3) = "Papa": NachZ(3) = 12:

Titel = Range("B4")
For n = 0 To 3
     If Titel = Ti(n) Then
          found = n: Exit For
     End If
Next n
If Titel = Ti(0) Or Titel = Ti(1) Then
     Worksheets(Titel).Unprotect "Password"
     Worksheets("Kriterien").Range("H16").Copy
     Worksheets(Titel).Range(Cells(NachZ(found), 4)) = Worksheets("Kriterien").Range("H16")
     Worksheets(Titel).Protect "Password"
End If

 

Testen konnte ich leider nicht, ohne die datei zu haben.

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:



  • 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
20.08.2017 12:27:31 Chris
NotSolved
Blau Zellenauswertung und Zuordnung
 20.08.2017 15:49:51 Mackie
NotSolved
20.08.2017 19:40:02 Chris
NotSolved
20.08.2017 21:44:17 Mackie
NotSolved