Thema Datum  Von Nutzer Rating
Antwort
27.10.2021 09:01:22 SmileStyle
NotSolved
27.10.2021 10:15:31 Gast66499
NotSolved
27.10.2021 10:23:09 SmileStyle
NotSolved
27.10.2021 21:36:14 Gast85421
NotSolved
28.10.2021 06:23:09 SmileStyle
NotSolved
28.10.2021 08:34:36 volti
NotSolved
28.10.2021 08:37:21 volti
NotSolved
28.10.2021 13:16:27 SmileStyle
NotSolved
28.10.2021 17:27:14 volti
NotSolved
29.10.2021 06:35:00 SmileStyle
NotSolved
29.10.2021 09:19:19 volti
NotSolved
Blau Aktive Zelle nutzen
 29.10.2021 09:31:05 volti
NotSolved
29.10.2021 09:53:56 SmileStyle
NotSolved
29.10.2021 10:52:34 Gast30211
NotSolved
29.10.2021 11:09:53 SmileStyle
NotSolved
02.11.2021 09:08:37 SmileStyle
NotSolved
29.10.2021 13:09:00 Gast3896
NotSolved
02.11.2021 08:43:42 SmileStyle
NotSolved
02.11.2021 10:16:11 Werner
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
29.10.2021 09:31:05		 Views:
440		 Rating:
     
Antwort:
  Ja
Thema:
Aktive Zelle nutzen

Hallo,

 

vielleicht hilft Dir dieses Beispiel etas weiter:

Der Code gehört ins Tabellenblattmodul...

 

Code:
 
1
2
3
4
5
6
7
8		  
Private Sub Worksheet_Change(ByVal Target As Range)
' Trägt in Spalte "A" die Formel ein, wenn in den Spalten 2 bis 4 etwas eingetragen wird
  With Target
      If .Column > 1 And .Column < 5 Then
         Cells(.Row, "A").FormulaLocal = "=ZEILEN($A$5:" & Range("A" & .Row).Address(0, 0) & ")"
      End If
  End With
End Sub
_________
viele Grüße
Karl-Heinz

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
27.10.2021 09:01:22 SmileStyle
NotSolved
27.10.2021 10:15:31 Gast66499
NotSolved
27.10.2021 10:23:09 SmileStyle
NotSolved
27.10.2021 21:36:14 Gast85421
NotSolved
28.10.2021 06:23:09 SmileStyle
NotSolved
28.10.2021 08:34:36 volti
NotSolved
28.10.2021 08:37:21 volti
NotSolved
28.10.2021 13:16:27 SmileStyle
NotSolved
28.10.2021 17:27:14 volti
NotSolved
29.10.2021 06:35:00 SmileStyle
NotSolved
29.10.2021 09:19:19 volti
NotSolved
Blau Aktive Zelle nutzen
 29.10.2021 09:31:05 volti
NotSolved
29.10.2021 09:53:56 SmileStyle
NotSolved
29.10.2021 10:52:34 Gast30211
NotSolved
29.10.2021 11:09:53 SmileStyle
NotSolved
02.11.2021 09:08:37 SmileStyle
NotSolved
29.10.2021 13:09:00 Gast3896
NotSolved
02.11.2021 08:43:42 SmileStyle
NotSolved
02.11.2021 10:16:11 Werner
NotSolved