Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1552to1556
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

Zelle suchen ausschneiden und einfügen

Zelle suchen ausschneiden und einfügen
11.04.2017 09:08:31
Markus
Hallo,
habe eine Tabellenblatt mit drei Spalten. In der Spalte C möchte ich die Zellen finden die mit einem bestimmten Buchstaben, in diesem Fall "Q" anfangen. Dieser ist immer eindeutig.
Wenn eine Zelle gefunden wurde, soll diese ausgeschnitten und in die Zelle die darüber liegt eingefügt werden, egal was darin steht. Die ausgeschnittene Zelle soll dann leer bleiben.
Habe es mit diesem Code versucht.
Sub Zelle_finden()
Dim i As Long
With Sheets("Tabelle1")
For i = .Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
If .Cells(i, "C") Like "Q" Then
.Rows(i).Copy Sheets("Tabelle1").Cells(Sheets("Tabelle1").Cells(Rows.Count, "C") _
_
.End(xlUp).Row + 1, "C")
End If
Next
End With
End Sub
Vielen Dank vorab schon mal!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle suchen ausschneiden und einfügen
11.04.2017 10:04:28
ChrisL
Hi
Vielleicht so...
Sub Zelle_finden()
Dim i As Long
With Sheets("Tabelle1")
For i = 2 To .Cells(Rows.Count, "C").End(xlUp).Row
If .Cells(i, "C") Like "Q*" Then
.Rows(i).Copy .Rows(i - 1)
.Rows(i).ClearContents
End If
Next i
End With
End Sub

cu
Chris
AW: Zelle suchen ausschneiden und einfügen
12.04.2017 08:57:53
Markus
Hallo,
das klappt soweit ja schon.
Jedoch wird die ganz Zeile kopiert. Ich möchte jedoch nur den Wert aus der Spalte "C" haben. Die Spalten A und B sollen unberührt bleiben.
AW: Zelle suchen ausschneiden und einfügen
12.04.2017 09:42:03
ChrisL
Hi Markus
Sub Zelle_finden()
Dim i As Long
With Sheets("Tabelle1")
For i = 2 To .Cells(Rows.Count, "C").End(xlUp).Row
If .Cells(i, "C") Like "Q*" Then
.Cells(i, "C").Copy .Cells(i - 1, "C")
.Cells(i, "C").ClearContents
End If
Next i
End With
End Sub
cu
Chris
Anzeige
AW: Zelle suchen ausschneiden und einfügen
13.04.2017 10:26:25
Markus
Vielen Dank!
hatte auf dem Schlauch gestanden.
Gruß

235 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige