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

Gefundene Werte aus Nachbarzelle in Tabelle2 kop.

Gefundene Werte aus Nachbarzelle in Tabelle2 kop.
05.02.2013 17:03:17
Burghard
Hallo,
ich möchte mittels eines Makros gefundene Werte in einer Nachbarzelle anhand eines Input-Wertes in die Tabelle2 untereinander in die Spalte A kopieren. Mein Makro überschreibt den gefundenen Wert aber immer in Tabelle2 Zelle A1. Ich möchte dort in der Spalte A aber alle gefundenen Werte untereinander haben.
Mein (fehlerhaftes) Makro:
Sub Nachbarzelle_Wert_kopieren()
Application.ScreenUpdating = False
Dim finden, zelle As Range
Dim Wert As String
Set finden = Range("AA2:AA5000")
Wert = InputBox("Wonach suchen?")
For Each zelle In finden
If zelle.Text = Wert Then
zelle.Offset(0, -6).Copy
Sheets("Tabelle2").Cells(1, 1).PasteSpecial xlPasteValues
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Hilfe/Lösung wäre nett.
Gruß Burghard

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

Betreff
Datum
Anwender
Anzeige
AW: Gefundene Werte aus Nachbarzelle in Tabelle2 kop.
05.02.2013 17:19:36
Beverly
Hi Burghard,
versuche es mal so:
Sub Nachbarzelle_Wert_kopieren()
Application.ScreenUpdating = False
Dim finden, zelle As Range
Dim Wert As String
Dim lngZeile As Long
Set finden = Range("AA2:AA5000")
Wert = InputBox("Wonach suchen?")
For Each zelle In finden
If zelle.Text = Wert Then
zelle.Offset(0, -6).Copy
With Sheets("Tabelle2")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, . _
Rows.Count) + 1
.Cells(lngErste, 1).PasteSpecial xlPasteValues
End With
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Anzeige
AW: Klappt!
05.02.2013 17:47:15
Burghard
Hallo Beverly (Karin?),
danke, klappt bestens!
Grüße Burghard

AW: klappt!
05.02.2013 17:48:14
Burghard
Hallo Matthias,
funktioniert bestens! Danke!
Grüße Burghard

380 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige