Thema Datum  Von Nutzer Rating
Antwort
04.02.2016 15:17:19 Gast50463
NotSolved
04.02.2016 15:51:05 BigBen
NotSolved
04.02.2016 16:55:09 Gast22437
NotSolved
04.02.2016 17:32:30 Gast83765
NotSolved
Rot Kopieren
04.02.2016 21:37:43 BigBen
NotSolved
05.02.2016 08:40:38 Gast62218
NotSolved
05.02.2016 09:10:49 Gast70586
NotSolved
05.02.2016 21:40:30 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
04.02.2016 21:37:43		 Views:
874		 Rating:
     
Antwort:
  Ja
Thema:
Kopieren

Hallo,

teste mal diesen Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Static bRunning As Boolean
    If Not bRunning Then
        bRunning = True
        Set rng = Target.Worksheet.Range("I24:ZZ999")
        If Not Intersect(rng, Target) Is Nothing Then
            If Target.Value = "T" Then
                Target.Worksheet.Cells(Target.Row, 9).Value = Target.Worksheet.Cells(2, Target.Column).Value
            End If
        End If
        bRunning = False
    End If
End Sub

LG, BigBen

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
04.02.2016 15:17:19 Gast50463
NotSolved
04.02.2016 15:51:05 BigBen
NotSolved
04.02.2016 16:55:09 Gast22437
NotSolved
04.02.2016 17:32:30 Gast83765
NotSolved
Rot Kopieren
04.02.2016 21:37:43 BigBen
NotSolved
05.02.2016 08:40:38 Gast62218
NotSolved
05.02.2016 09:10:49 Gast70586
NotSolved
05.02.2016 21:40:30 BigBen
NotSolved