title image


Smiley Re: excel
SO habe den COde mal angepasst



Sub Schaltfläche1_BeiKlick()



Dim x

Dim i

x = 1

Sheets("Tabelle2").Select

Cells.Select

Application.CutCopyMode = False

Selection.ClearContents

Sheets("Tabelle1").Select

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

Rows(i).Select

Selection.Copy

Sheets("Tabelle2").Select

Rows(x).Select

ActiveSheet.Paste

Sheets("Tabelle1").Select

x = x + 1

End If

Next



End Sub





lg Turbo
Wer anderen eine Grube gräbt hat ein Grubengrabgerät http://access-o-mania.de/

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: