Thema Datum  Von Nutzer Rating
Antwort
16.04.2012 18:36:29 Spooor
NotSolved
Blau Eine Spalte auf Symmetrie prüfen
 16.04.2012 19:34:25 Till
NotSolved
19.04.2012 13:52:57 Gast2867
NotSolved
19.04.2012 19:43:49 Till
****
Solved
23.04.2012 00:05:59 Gast74927
Solved

Ansicht des Beitrags:
Von:
Till		 Datum:
16.04.2012 19:34:25		 Views:
1727		 Rating:
     
Antwort:
  Ja
Thema:
Eine Spalte auf Symmetrie prüfen

Hi,

 

Option Explicit

Sub Test()
Dim SpaltenNummer&
Dim Spalte As Range
    
    Set Spalte = Range("A1")
    
    SpaltenNummer = Spalte.Column
    SymetrieSpalte SpaltenNummer
    
End Sub

Private Sub SymetrieSpalte(C As Long)
Dim V, R&, I&, V2$(), E&
    
    V = Range(Cells(1, C), Cells(Rows.Count, C).End(xlUp)).Value
    E = UBound(V)
    
    ReDim V2(E - 1)
    For R = 1 To E
        If V(R, 1) <> "" Then
            V2(I) = V(R, 1)
            I = I + 1
        End If
    Next
    
    E = I - 1
    For R = 0 To E
        If V2(R) <> V2(E - R) Then Exit For
    Next
    If R > E Then
        MsgBox "Die Spalte ist symetrisch aufgebaut.", vbInformation
    Else
        MsgBox "Die Spalte ist nicht symetrisch aufgebaut.", vbCritical
    End If
    
End Sub

Die Prozedur "Test" führt nur die andere Prozedur aus bzw. wandelt den Spaltenbuchstaben in die Spaltennummer um, du kannst natürlich auch gleich die Nummer angeben.

 

Gruß

Till

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
16.04.2012 18:36:29 Spooor
NotSolved
Blau Eine Spalte auf Symmetrie prüfen
 16.04.2012 19:34:25 Till
NotSolved
19.04.2012 13:52:57 Gast2867
NotSolved
19.04.2012 19:43:49 Till
****
Solved
23.04.2012 00:05:59 Gast74927
Solved