Thema Datum  Von Nutzer Rating
Antwort
05.10.2020 14:26:21 Karl
NotSolved
05.10.2020 15:06:58 Gast3815
NotSolved
05.10.2020 15:18:43 Karl
NotSolved
Blau If Ja, Zellen kopieren
 05.10.2020 15:11:12 Karl
NotSolved
05.10.2020 15:35:05 Gast54649
Solved
05.10.2020 16:03:32 Karl
NotSolved
05.10.2020 15:40:00 Gast61720
***
NotSolved
05.10.2020 16:04:10 Karl
NotSolved
05.10.2020 16:18:16 Gast92922
NotSolved

Ansicht des Beitrags:
Von:
Karl		 Datum:
05.10.2020 15:11:12		 Views:
524		 Rating:
     
Antwort:
  Ja
Thema:
If Ja, Zellen kopieren		 
Sub Test()

Dim lnfZeile As Long
For lnfZeile = 2 To 459
If Worksheets("Tabelle2").Cells(lnfZeile, "G").Value = "x" Then
Sheets("Tabelle1").Activate
Sheets("Tabelle1").Range("B5:R5").Copy
Sheets("Tabelle2").Activate
Sheets("Tabelle2").Range(lnfZeile, "M").Select
ActiveSheet.Paste
Else: Worksheets("Tabelle2").Cells(lnfZeile, "G").Value = ""
End If
Next



End Sub

Ein weiterer Versuch, leider funktioniert dies auch nicht.

Es liegt leider an folgender Zeile:

Sheets ("Tabelle2").Range(lnfZeile, "M").Select

Schreibe ich nur "M2" als Ziel funktioniert es, aber die Formel soll ja die Zelle G2 bis G459 durchlaufen und jedes mal wenn x gefunden wird das ganze in die Spalte M kopieren.

Danke

 

 

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
05.10.2020 14:26:21 Karl
NotSolved
05.10.2020 15:06:58 Gast3815
NotSolved
05.10.2020 15:18:43 Karl
NotSolved
Blau If Ja, Zellen kopieren
 05.10.2020 15:11:12 Karl
NotSolved
05.10.2020 15:35:05 Gast54649
Solved
05.10.2020 16:03:32 Karl
NotSolved
05.10.2020 15:40:00 Gast61720
***
NotSolved
05.10.2020 16:04:10 Karl
NotSolved
05.10.2020 16:18:16 Gast92922
NotSolved