title image


Smiley schau mal hier...
Hallo Leiti



Diesen Code in Tabelle2.



Option Explicit



Private Sub CommandButton1_Click()

Dim x

Dim i

x = 1

Dim Frage As String

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

For i = 1 To 1000

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

Next

End Sub



Private Sub CommandButton2_Click()

Columns("A:A").ClearContents

End Sub



!! Da man aus Deiner Frage nicht ganz schlau wird... !!"

Ich denke eher, das Du nur die Daten der Tabelle1 SpalteA nur kopieren mußt

und dann in Tabelle2 Spalte A wieder einfügst. Also nur kopieren

Dann in Tabelle2 die Spalte A markieren Daten-Sortieren. Das wars.




Gruß Matthias

geschrieben von

Anhang
Bild 10590 zu Artikel 509864

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: