Thema Datum  Von Nutzer Rating
Antwort
02.05.2019 08:29:09 Lisa
Solved
Blau Mehrere Zellen als Output und mehrere Zellen als eine Eingabe
02.05.2019 14:50:13 Gast85875
NotSolved
07.05.2019 10:31:44 Gast68658
NotSolved
07.05.2019 11:28:49 Gast85875
NotSolved
07.05.2019 13:31:53 Gast44417
NotSolved
07.05.2019 15:29:53 Gast77661
NotSolved
07.05.2019 18:22:10 Gast85875
NotSolved
08.05.2019 09:48:15 Gast85875
NotSolved
08.05.2019 13:52:08 Lisa
NotSolved
08.05.2019 16:57:56 Gast85875
NotSolved
09.05.2019 10:14:16 Gast45743
NotSolved
09.05.2019 12:42:54 Gast55221
NotSolved
08.05.2019 17:18:02 Christian Selle
NotSolved
09.05.2019 10:13:42 Gast80487
NotSolved
09.05.2019 14:20:07 Gast16566
NotSolved
09.05.2019 14:47:32 Lisa
NotSolved
10.05.2019 08:38:42 Gast80487
NotSolved
10.05.2019 14:02:19 Christian Selle
NotSolved
14.05.2019 10:09:24 Gast8036
NotSolved
14.05.2019 10:16:05 Lisa
NotSolved

Ansicht des Beitrags:
Von:
Gast85875
Datum:
02.05.2019 14:50:13
Views:
508
Rating: Antwort:
  Ja
Thema:
Mehrere Zellen als Output und mehrere Zellen als eine Eingabe

'Ereignis der Worksheet-Klasse
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range, flag As Boolean

   If Target.Count > 1 Then Exit Sub
   'Zellen wo
   Set rng = Union([B2], [C3:C6], [E4:G8], [A10:G10], [G1])
   For Each c In rng.Cells
      If Not Intersect(c, Target) Is Nothing Then
         flag = True
         Exit For
      End If
   Next c
   If Not flag Then Exit Sub
   Application.EnableEvents = False
   rng.Value = Target.Value
   Application.EnableEvents = True
   
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
02.05.2019 08:29:09 Lisa
Solved
Blau Mehrere Zellen als Output und mehrere Zellen als eine Eingabe
02.05.2019 14:50:13 Gast85875
NotSolved
07.05.2019 10:31:44 Gast68658
NotSolved
07.05.2019 11:28:49 Gast85875
NotSolved
07.05.2019 13:31:53 Gast44417
NotSolved
07.05.2019 15:29:53 Gast77661
NotSolved
07.05.2019 18:22:10 Gast85875
NotSolved
08.05.2019 09:48:15 Gast85875
NotSolved
08.05.2019 13:52:08 Lisa
NotSolved
08.05.2019 16:57:56 Gast85875
NotSolved
09.05.2019 10:14:16 Gast45743
NotSolved
09.05.2019 12:42:54 Gast55221
NotSolved
08.05.2019 17:18:02 Christian Selle
NotSolved
09.05.2019 10:13:42 Gast80487
NotSolved
09.05.2019 14:20:07 Gast16566
NotSolved
09.05.2019 14:47:32 Lisa
NotSolved
10.05.2019 08:38:42 Gast80487
NotSolved
10.05.2019 14:02:19 Christian Selle
NotSolved
14.05.2019 10:09:24 Gast8036
NotSolved
14.05.2019 10:16:05 Lisa
NotSolved