title image


Smiley Re: Entweder in den Beitragstext hineinkopieren oder ...
Hallo,

so könnte es gehen:





      

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



    Dim Spalte As Integer

    Dim i As Long

    

    If Target.Address(False, False) = "A2" Then

       Spalte = 1

       Do Until Worksheets("Nummern").Cells(65536, Spalte) = ""

          Spalte = Spalte + 4

       Loop

    

       i = Worksheets("Nummern").Cells(Rows.Count, Spalte).End(xlUp).Row



       Sheets("Nummern").Range("IF1").Value = Sheets("Nummerneingabe").Range("a2").Value & ";"

       If Sheets("Nummern").Range("IH1").Value = 1 Then

          MsgBox ("Sie haben eine Nummer eingegeben die bereits vorhanden ist")

       Else

          Sheets("Nummern").Cells(i + 1, Spalte).Value = Sheets("Nummerneingabe").Range("a2").Value & ";"

          Sheets("Nummern").Cells(i + 1, Spalte + 1).Value = Sheets("Nummerneingabe").Range("b2").Value

       End If

    End If



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0





Wahrscheinlich muss die Formel in IH1 (falls da eine steht), noch angepasst werden.

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: