title image


Smiley Re: Entweder in den Beitragstext hineinkopieren oder ...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)



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

Sheets("Nummern").Activate

i = Sheets("Nummern").[a65536].End(xlUp).Row



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

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

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

Else

Sheets("Nummern").Range("A" & i + 1).Value = Sheets("Nummerneingaben").Range("a2").Value & ";"

Sheets("Nummern").Range("B" & i + 1).Value = Sheets("Nummerneingaben").Range("b2").Value

End If

Sheets("Nummerneingaben").Select

End If



End Sub





____________________________________

Habe es gefunden, kann man denn sode so ändern, damit wenn er die spalte voll ist, 4 spalten weiter rechts in der zweile a1 wieder anfängt die nummern zu listen ?



Gruß Thomas

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: