title image


Smiley Re: einfach VBA frage
so etwa:









Dim intM As Integer, intN As Integer



For intM = 2 To 5



    For intN = 5 To 9



        If Worksheets("sheet2").Range("B" & intM).Value = Worksheets("sheet1").Range("B" & intN).Value Then



            If Not Worksheets("sheet2").Range("A" & intM).Value = "" Then

                Worksheets("sheet2").Range("A" & intM).Value = Worksheets("sheet2").Range("A" & intM).Value _

                                                            & "," & Worksheets("sheet1").Range("A" & intN).Value

            Else

                Worksheets("sheet2").Range("A" & intM).Value = Worksheets("sheet1").Range("A" & intN).Value

            End If



        End If





    Next intN



Next intM



End Sub





Code eingefügt mit Syntaxhighlighter 4.0




mfg Mike

Snafu



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: