Thema Datum  Von Nutzer Rating
Antwort
14.12.2018 13:05:12 Merih
NotSolved
14.12.2018 13:21:04 Gast58036
NotSolved
14.12.2018 13:29:10 Merih
NotSolved
14.12.2018 13:52:37 Gast2406
NotSolved
Rot Wenn x in Spalte A:A, dann y unter die letzte beschriebene Zelle in Spalte D
 14.12.2018 17:17:52 Gast46799
*****
Solved
14.12.2018 22:05:52 Merih
NotSolved

Ansicht des Beitrags:
Von:
Gast46799		 Datum:
14.12.2018 17:17:52		 Views:
469		 Rating:
     
Antwort:
 Nein
Thema:
Wenn x in Spalte A:A, dann y unter die letzte beschriebene Zelle in Spalte D		 
Sub Glückwunsch()
Dim rngK As Range, RngT As Range, RngZ As Range

   With ActiveSheet
      
      Set RngT = .Range("D" & .Rows.Count).End(xlUp).Offset(1)
      Set rngK = Columns("A").Find(What:="kostenfrei", LookIn:=xlValues, LookAT:=xlPart)
      
      If Not rngK Is Nothing Then
         'Treffer
         RngT.Value = .Range("B1").Value
      Else
         'Nix
         RngT.Value = .Range("B3").Value
      End If
      
   End With

End Sub

 

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
14.12.2018 13:05:12 Merih
NotSolved
14.12.2018 13:21:04 Gast58036
NotSolved
14.12.2018 13:29:10 Merih
NotSolved
14.12.2018 13:52:37 Gast2406
NotSolved
Rot Wenn x in Spalte A:A, dann y unter die letzte beschriebene Zelle in Spalte D
 14.12.2018 17:17:52 Gast46799
*****
Solved
14.12.2018 22:05:52 Merih
NotSolved