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

Name in Spalte suchen und in dieser Zeile Range kopieren

Name in Spalte suchen und in dieser Zeile Range kopieren
15.03.2024 11:58:25
Bernhard
hallo

hab diesen code und er soll mir nicht die ganze Zeile kopieren , sondern nur von H bis NI....
bekomme es nicht hin, kann mir jemand helfen?
Danke

Sub Name()
Dim SZelle As Range
Dim Suchwert As String

Suchwert = "Name" 'Suchbegriff

Set SZelle = Tabelle5.Range("A:A").Find(Suchwert)
Rows(SZelle.Row).Copy
ActiveCell.Offset(0, 9).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name in Spalte suchen und in dieser Zeile Range kopieren
15.03.2024 12:11:37
ralf_b
Gibts du den Namen jedesmal von Hand im Code ein?

Sub Name()

Dim SZelle As Range
Dim Suchwert As String

Suchwert = "Name" 'Suchbegriff

Set SZelle = Tabelle5.Range("A:A").Find(Suchwert)
If Not SZelle Is Nothing Then
Tabelle5.Range("H" & SZelle.Row & ":NI" & SZelle.Row).Copy
ActiveCell.Offset(0, 9).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Else
MsgBox "Nicht gefunden: " & Suchwert
End If
End Sub
Anzeige
AW: Name in Spalte suchen und in dieser Zeile Range kopieren
15.03.2024 12:42:40
Bernhard Grandl
Hallo
Nein ich starte dieses Makro mit einem Doppelklick in dem dieser Name steht.

Für jeden Namen hab ich dann ein seperates makro.
Lg
AW: Name in Spalte suchen und in dieser Zeile Range kopieren
15.03.2024 13:32:16
ralf_b
vielleicht macht das die anderen Makros überflüssig.
Suchwert = Activecell.value

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige