Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

von aktiver Zelle Bereich kopieren


Betrifft: von aktiver Zelle Bereich kopieren von: Heike
Geschrieben am: 29.08.2016 18:14:53

Hallo, ich hoffe mir kann jemand weiterhelfen.
Ich möchte, wenn in Spalte A, ein bestimmter Text steht, in der gleichen Reihe nach Spalte E. z.B Text in "A5", dann nach "E5"
Von "E5" möchte ich alle Zellen bis nächsten leeren Zellen kopieren.
z.B. "E5":"E20"
Ich habe Probleme den Bereich zu kopieren
Danke im Voraus....

Sub Werte_Kopieren()
Dim str_SuchString As String
Dim Counter1 As Integer
Dim Counter2 As Integer
Dim x As Integer
str_SuchString = "test" 'InputBox("Geben Sie ein Wort nachdem Sie suchen möchten ein:", "Suche.. _
.")
For Counter1 = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Column
    
    For Counter2 = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
        If Cells(Counter2, Counter1).Value = str_SuchString Then
            Cells(Counter2, Counter1).Select
        End If
    Next
Next

Selection.Offset(0, 4).Resize(Selection.Rows.Count, _
   Selection.Columns.Count).Select

LaR = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(ActiveCell.Row + LaR, 5), Cells(ActiveCell.Row + LaR, 5)).Copy
End Sub

  

Betrifft: AW: von aktiver Zelle Bereich kopieren von: Bastian
Geschrieben am: 29.08.2016 19:50:02

So vielleicht ?


https://www.herber.de/bbs/user/107883.xlsm


Gruß BAsti


  

Betrifft: AW: von aktiver Zelle Bereich kopieren von: Werner
Geschrieben am: 30.08.2016 09:41:03

Hallo Heike,

hier meine Version - die von Bastian konnte ich mir nicht ansehen (kann derzeit nichts herunterladen) - möglicherweise hast du jetzt zwei gleiche/ähnliche Versionen.

Wohin du kopieren willst hast du uns leider nicht verraten. Mein Makro kopiert die Daten von Blatt1 nach Blatt2 A1.

Public Sub Werte_kopieren()
Dim strSuche As String
Dim rngFund As Range
Dim loErste As Long
strSuche = InputBox("Geben Sie ein Wort nachdem Sie suchen möchten ein:", "Suche...")
If strSuche = "" Then Exit Sub
Set rngFund = Sheets("Tabelle1").Columns(1).Find(what:=strSuche) 'Tabelle anpassen
If Not rngFund Is Nothing Then
loErste = Sheets("Tabelle1").Cells(1, 5).End(xlDown).Row 'Tabelle anpassen
With Sheets("Tabelle1") 'Tabelle anpassen
.Range(.Cells(rngFund.Row, 5), .Cells(loErste, 5)).Copy Sheets("Tabelle2").Range("A1") 'Ziel  _
anpassen
Application.CutCopyMode = False
End With
End If
End Sub
Gruß Werner


  

Betrifft: AW: von aktiver Zelle Bereich kopieren von: Heike
Geschrieben am: 30.08.2016 20:05:17

Hallo zusammnen,
danke euch beiden, für die schnelle Antwort.
Ich habe gerade beide Varianten getestet.
Bei Bastian's Vorschlag muß ich das Makro noch ein bißchen anpassen.
Werde ich morgen mal versuchen.
Werner, dein Makro funktioniert soweit super.
Es gibt allerdings ein Problem, wenn in Spalte "E", eine leere Zelle über der aktiven Zelle ist.
Gruß Heike


  

Betrifft: AW: von aktiver Zelle Bereich kopieren von: Werner
Geschrieben am: 31.08.2016 06:39:12

Hallo Heike,

angepasst dann so:

Public Sub Werte_kopieren()
Dim strSuche As String
Dim rngFund As Range
Dim loErste As Long
strSuche = InputBox("Geben Sie ein Wort nachdem Sie suchen möchten ein:", "Suche...")
If strSuche = "" Then Exit Sub
Set rngFund = Sheets("Tabelle1").Columns(1).Find(what:=strSuche) 'Tabelle anpassen
If Not rngFund Is Nothing Then
    loErste = Sheets("Tabelle1").Cells(rngFund.Row, 5).End(xlDown).Row 'Tabelle anpassen
    With Sheets("Tabelle1") 'Tabelle anpassen
        If IsEmpty(.Cells(rngFund.Row + 1, 5)) Then loErste = rngFund.Row
        .Range(.Cells(rngFund.Row, 5), .Cells(loErste, 5)).Copy Sheets("Tabelle2").Range("A1")
        Application.CutCopyMode = False
    End With
Else
    MsgBox "Suchbegriff """ & strSuche & """ in Spalte ""A"" nicht vorhanden."
End If
End Sub
Gruß Werner


  

Betrifft: AW: von aktiver Zelle Bereich kopieren von: Heike
Geschrieben am: 31.08.2016 12:15:58

Hallo Werner,

es ist perfekt...

Vielen Dank

Heike


  

Betrifft: AW: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 31.08.2016 14:10:09




Beiträge aus den Excel-Beispielen zum Thema "von aktiver Zelle Bereich kopieren"