Thema Datum  Von Nutzer Rating
Antwort
Rot Makro zu diesemn Makro
22.11.2022 13:59:00 Fenix
NotSolved
22.11.2022 20:14:46 ralf_b
NotSolved
23.11.2022 06:33:43 Fenix
NotSolved
23.11.2022 18:59:28 xlKing
NotSolved
24.11.2022 09:57:47 Nils
NotSolved
24.11.2022 18:11:04 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Fenix
Datum:
22.11.2022 13:59:00
Views:
149
Rating: Antwort:
  Ja
Thema:
Makro zu diesemn Makro

Ich habe mal eine Frage zu diesem Makro, es Funktioniert soweit nur leider Kopiert er mir die komplette Zeile wo der Suchbegriff vorkommt.

Ich würde ganz gerne, dass er nur nur die Werte aus der Spalte F, J, K, G ,I in das Tabellenblatt 2 kopiert. Vlt kann mir ja einer von euch helfen danke schon einmal im vorraus.

Option Explicit
 
Sub Kopie()
Dim Anzahl As Long, A As Long
Dim SZelle As Range
Dim Suchwert As String
 
Suchwert = "produkt 1" 'Suchbegriff
 
Anzahl = Application.WorksheetFunction.CountIf(Tabelle1.Range("5:30"), Suchwert)
 
For A = 1 To Anzahl
 If A = 1 Then
  Set SZelle = Tabelle1.Range("5:30").Find(Suchwert)
  Rows(SZelle.Row).Copy Tabelle2.Cells(A, 1)  'ganze Zeile Kopieren
 Else
  Set SZelle = Tabelle1.Range("5:30").FindNext(SZelle)
  Rows(SZelle.Row).Copy Tabelle2.Cells(A, 1) 'ganze Zeile Kopieren
 End If
Next A
 
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro zu diesemn Makro
22.11.2022 13:59:00 Fenix
NotSolved
22.11.2022 20:14:46 ralf_b
NotSolved
23.11.2022 06:33:43 Fenix
NotSolved
23.11.2022 18:59:28 xlKing
NotSolved
24.11.2022 09:57:47 Nils
NotSolved
24.11.2022 18:11:04 xlKing
NotSolved