title image


Smiley Re: excel
hier mein code



Private Sub Suchen_Click()



Dim x

Dim i

x = 1

Dim Frage As String

Frage = InputBox("Bitte Suchbegriff definieren", "Übertrag nach Tabelle2", "")

For i = 1 To 1000

If Sheets("Tabelle1").Cells(i, "A") = Frage Then Sheets("Tabelle2").Cells(x, "C") = Frage: x = x + 1

Next



End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: