Thema Datum  Von Nutzer Rating
Antwort
14.05.2011 12:17:05 Sebastian
NotSolved
Blau Schleife für Ausgabe einer bestimmten Zelle
 14.05.2011 15:38:26 Till
NotSolved
14.05.2011 15:54:01 Till
NotSolved
15.05.2011 14:13:20 Gast72103
NotSolved
17.05.2011 00:30:42 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
14.05.2011 15:38:26		 Views:
1130		 Rating:
     
Antwort:
  Ja
Thema:
Schleife für Ausgabe einer bestimmten Zelle

So sollte es funktionieren:

Option Explicit

Sub Vergleichen()
    
    Dim tab1
    Dim R&, C&, S1&, S2&, E1&, E2&
    Dim Zahlenwert#
    Dim rng As Range
    
    S1 = 1
    S2 = 1
    E1 = 900
    E2 = 90
    
    Zahlenwert = 1000 'hier einen Wert festlegen...
    
    Set rng = Range(Cells(S1, S2), Cells(E1, E2))
    tab1 = rng.Value
    
    For C = S2 To E2
        For R = S1 + 2 To E1
            
            If tab1(R, C) = Zahlenwert Then
                tab1(1, C) = tab1(R, 1)
                Exit For
            End If
            
        Next
    Next
    
    'kopieren
        rng = tab1
        
End Sub

Existiert ein Wert mehrmals erscheint der zu erst gefundene in der ersten Zeile.

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
14.05.2011 12:17:05 Sebastian
NotSolved
Blau Schleife für Ausgabe einer bestimmten Zelle
 14.05.2011 15:38:26 Till
NotSolved
14.05.2011 15:54:01 Till
NotSolved
15.05.2011 14:13:20 Gast72103
NotSolved
17.05.2011 00:30:42 Till
NotSolved