Hmm, Hallo zusammen,
habe leider nirgendwo das passende gefunden und etwas „fast“ passendes umzumodeln, dazu bin ich leider nicht in der Lage.
Mit Makro aufnehmen gehts leider nicht, da er dann immer die Zelle direkt (also z.B. H400) nimmt.
Habe hier eine Tabelle, jetzt sollte ich in einer bestimmten Spalte den Text „Everki“ finden.
In derselben Zeile 2 Spalten nach vorne hopsen und dort den Text (Zahl) (Format der Zelle ist Standard) kopieren, nochmals 4 Spalten nach vorne hüpfen und dort den kopierten Text einfügen, danach muss weitergesucht werden.
Die Tabelle beinhaltet ca 7000 Zeilen
Hier mal ein Teil der Struktur
[F] Hersteller || [G] Lagerbestand || [H] UVP || [I] Warengruppe-Text || [J] ab_Menge_1 || [K] ab_Menge_3
EVERKI® (nach diesem Text suchen) || 139 || 24,99 (diesen Wert kopieren) || Computerzubehör -> Laptop Skins/Taschen -> EVERKI® || 1 || 19,95 (hier den kopierten Wert einfügen
EVERKI® || 952 || 29,99 || Computerzubehör -> Laptop Skins/Taschen -> EVERKI® || 1 || 23,95
Dank Euch
Grüsse Mark
Hallo Mark,
Habe hier eine Tabelle, jetzt sollte ich in einer bestimmten
Spalte den Text „Everki“ finden.
welche Spalte ist „in einer bestimmten Spalte“?
Lade bitte eine beipielmappe hoch mit fileupload o.ä. s. FAQ:2606
Gruß
Reinhard
Hallo Reinhard,
hier ist der Link zum Download
http://www.file-upload.net/download-4145243/Vorschau…
In der Spalte „F“ soll nach dem Wort „Everki“ gesucht werden.
Wird dieses gefunden soll in der entsprechenden Zeile der Wert aus Spalte „H“ kopiert und in Spalte „K“ eingefügt werden.
Danach sollte die Suche weitergehen, bis alle Zeilen durch sind,
Danke
http://www.file-upload.net/download-4145243/Vorschau…
In der Spalte „F“ soll nach dem Wort „Everki“ gesucht werden.
Wird dieses gefunden soll in der entsprechenden Zeile der Wert
aus Spalte „H“ kopiert und in Spalte „K“ eingefügt werden.
Hallo Mark,
Sub Preis()
Dim Zei As Long, Erste As String, Zelle As Range
Const Such As String = "everki"
Zei = Worksheets("Tabelle1").Cells(Rows.Count, 6).End(xlUp).Row
With Worksheets("Tabelle1").Range("F2:F" & Zei)
Set Zelle = .Find(Such, LookIn:=xlValues, lookat:=xlPart)
If Not Zelle Is Nothing Then
Erste = Zelle.Address
Do
Zelle.Offset(0, 5).Value = Zelle.Offset(0, 2).Value
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address Erste
End If
End With
End Sub
Gruß
Reinhard
Hallo Reinhard,
wow, vielen lieben Dank.
Funktioniert auf Anhieb, absolut genial.
Eine Frage hätte ich allerdings noch.
Was wäre, wenn ich die Funktion etwas abändere und nicht nach dem Text suche.
Sondern sage, wenn in der Spalte „H“ ein Wert eingetragen ist, welcher nicht „0“ ist, kopiere diesen und füge ihn in Spalte „K“ ein.
http://www.file-upload.net/download-4145243/Vorschau…
Danke
Was wäre, wenn ich die Funktion etwas abändere und nicht nach
dem Text suche.
Sondern sage, wenn in der Spalte „H“ ein Wert eingetragen ist,
welcher nicht „0“ ist, kopiere diesen und füge ihn in Spalte
„K“ ein.
http://www.file-upload.net/download-4145243/Vorschau…
Hallo Mark,
Sub Preis2()
Dim Z As Long
With Worksheets("Tabelle1")
For Z = 2 To .Cells(Rows.Count, 8).End(xlUp).Row
If .Cells(Z, 8).Value \> 0 Then
.Cells(Z, 11).Value = .Cells(Z, 8).Value
End If
Next Z
End With
End Sub
Gruß
Reinhard