Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Zelle finden und ganze Zeile kopieren | Herbers Excel-Forum


Betrifft: Zelle finden und ganze Zeile kopieren von: Chrissi
Geschrieben am: 14.01.2012 02:08:04

Abend Leute,

Private Sub CommandButton1_Click()
Dim rng As Range
   If TextBox1.Text = "" Then
      Beep
      MsgBox "Sie müssen in der ComboBox einen Suchbegriff auswählen!"
      Exit Sub
   End If
   Set rng = Worksheets("Sender").Columns(3) _
      .Find(TextBox1.Text, lookat:=xlWhole, LookIn:=xlValues)
   If Not rng Is Nothing Then
      'MsgBox "jawoll"
       With Worksheets("Target")
      iRow = .Cells(Rows.Count, 1).End(xlUp).row
      If iRow = 1 Then iRow = 2 Else iRow = iRow + 3
      Rows(i).Copy Worksheets("Target").Rows(j)
   End With
   Else
      MsgBox "Suchbegriff wurde nicht gefunden!"
   End If
   Unload Me
End Sub


Ich will einen Wert suchen per VBA Userform, hier mal meine erste "Gehversuche". Also er soll den Wert von
Textbox1 finden, dann die ganze Zeile markieren und in das sheet "Target" reinkopieren.
Nur ich weiß nicht weiter...
Bitte helft mir

Beste Grüße Chris

  

Betrifft: AW: Zelle finden und ganze Zeile kopieren von: Reinhard
Geschrieben am: 14.01.2012 02:51:04

Hallo Chrissi,

tausche mal
Rows(i).Copy Worksheets("Target").Rows(j)
gegen
rng.EntireRow.Copy Worksheets("Target").Rows(iRow)

Gruß
Reinhard


  

Betrifft: AW: Zelle finden und ganze Zeile kopieren von: Chrissi
Geschrieben am: 14.01.2012 19:53:46

super danke genau das war es !


  

Betrifft: AW: Zelle finden und ganze Zeile kopieren von: Chrissi
Geschrieben am: 14.01.2012 21:16:56

super danke genau das war es !


Beiträge aus den Excel-Beispielen zum Thema "Zelle finden und ganze Zeile kopieren"