Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1508to1512
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

von aktiver Zelle Bereich kopieren

von aktiver Zelle Bereich kopieren
29.08.2016 18:14:53
aktiver
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: von aktiver Zelle Bereich kopieren
30.08.2016 09:41:03
aktiver
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
Anzeige
AW: von aktiver Zelle Bereich kopieren
30.08.2016 20:05:17
aktiver
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
AW: von aktiver Zelle Bereich kopieren
31.08.2016 06:39:12
aktiver
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
Anzeige
AW: von aktiver Zelle Bereich kopieren
31.08.2016 12:15:58
aktiver
Hallo Werner,
es ist perfekt...
Vielen Dank
Heike
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
31.08.2016 14:10:09
Werner

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige