Thema Datum  Von Nutzer Rating
Antwort
12.10.2020 14:22:37 Peter
NotSolved
12.10.2020 15:02:44 Gast73050
NotSolved
12.10.2020 15:04:26 volti
NotSolved
13.10.2020 07:43:10 Peter
NotSolved
13.10.2020 09:15:55 Gast81562
*****
NotSolved
13.10.2020 09:22:20 Peter
NotSolved
15.10.2020 13:49:45 Peter
NotSolved
Blau Prüfen von Werten innerhalb einer Zeile
 15.10.2020 14:12:42 Gast34231
NotSolved
15.10.2020 14:18:00 Peter
NotSolved
15.10.2020 15:26:48 Gast27006
*****
NotSolved
15.10.2020 15:55:24 Gast27006
NotSolved
15.10.2020 15:56:34 Gast24777
NotSolved
15.10.2020 16:06:35 Gast88477
NotSolved
15.10.2020 16:18:28 Gast7846
NotSolved
15.10.2020 17:52:13 Gast27006
NotSolved
16.10.2020 09:24:34 Peter
NotSolved
15.10.2020 14:16:51 Peter
NotSolved
19.10.2020 09:52:24 Peter
NotSolved

Ansicht des Beitrags:
Von:
Gast34231		 Datum:
15.10.2020 14:12:42		 Views:
703		 Rating:
     
Antwort:
  Ja
Thema:
Prüfen von Werten innerhalb einer Zeile

Verbundene Zellen sind immer ein heikles Thema. Meistens tut man sie deshalb vermeiden.

Wenn man es dennoch nutzen will, dann kann man damit z.B. so umgehen:

Option Explicit

Sub Demo()
  
  Dim rngBereich  As Excel.Range
  Dim rngZelle    As Excel.Range
  
  'Beispiel erzeugen
  Range("A1:E3").Merge
  
  
  Set rngZelle = Range("B2")
  
  If rngZelle.MergeCells Then
    
    Set rngBereich = rngZelle.MergeArea
    
    Debug.Print rngZelle.Address; " ist Teil von "; rngBereich.Address
    
    For Each rngZelle In rngBereich.Cells
      Debug.Print " -> "; rngZelle.Address
    Next
    
'    'ODER über Index
'    Dim i As Long
'    Dim j As Long
'    For i = 1 To rngBereich.Rows.Count
'      For j = 1 To rngBereich.Columns.Count
'        Debug.Print " -> "; rngBereich.Cells(i, j).Address
'      Next
'    Next
    
  End If
  
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
12.10.2020 14:22:37 Peter
NotSolved
12.10.2020 15:02:44 Gast73050
NotSolved
12.10.2020 15:04:26 volti
NotSolved
13.10.2020 07:43:10 Peter
NotSolved
13.10.2020 09:15:55 Gast81562
*****
NotSolved
13.10.2020 09:22:20 Peter
NotSolved
15.10.2020 13:49:45 Peter
NotSolved
Blau Prüfen von Werten innerhalb einer Zeile
 15.10.2020 14:12:42 Gast34231
NotSolved
15.10.2020 14:18:00 Peter
NotSolved
15.10.2020 15:26:48 Gast27006
*****
NotSolved
15.10.2020 15:55:24 Gast27006
NotSolved
15.10.2020 15:56:34 Gast24777
NotSolved
15.10.2020 16:06:35 Gast88477
NotSolved
15.10.2020 16:18:28 Gast7846
NotSolved
15.10.2020 17:52:13 Gast27006
NotSolved
16.10.2020 09:24:34 Peter
NotSolved
15.10.2020 14:16:51 Peter
NotSolved
19.10.2020 09:52:24 Peter
NotSolved