Thema Datum  Von Nutzer Rating
Antwort
24.05.2016 14:14:46 Nickerchen
NotSolved
Blau VBA Suche nach 1 Kriterium + innerhalb einer KW - Ausgabe auf anderem Tabellenblatt
 24.05.2016 19:04:22 Gast70117
NotSolved
24.05.2016 19:45:30 Nickerchen
NotSolved
24.05.2016 21:37:48 Gast42970
NotSolved
25.05.2016 01:44:29 Nickerchen
Solved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
24.05.2016 19:04:22		 Views:
647		 Rating:
     
Antwort:
  Ja
Thema:
VBA Suche nach 1 Kriterium + innerhalb einer KW - Ausgabe auf anderem Tabellenblatt

Prinzipiel nachgestellt funktioniert o.a. Code, jedoch

ZITAT:

Alle gefunden Werte sollte mir der Code im "Tabellenblatt1"  <>  Worksheets("Tabelle1").Cells = Laufzeitfehler

 

Werte innerhalb einer festgelegten Kalenderwoche ausgibt - Werte wo?

daher als Versuch:

Sub MeinFindenundKopieren()
Dim rngWhat As Range, rngWeek As Range, rngRow As Range, rngTarget As Range
Dim intCnt As Integer

   'Bedingung1
   Set rngWhat = Sheets("4-Wochen").Range("B3")
   'Bedingung2
   Set rngWeek = Sheets("4-Wochen").Range("B2")
   
   'alle Zeilen
   For Each rngRow In Sheets("AX").UsedRange.Rows
      'Bedingung1 in Spalte K = 11.Zelle
      If rngRow.Cells(11) = rngWhat Then intCnt = intCnt + 1
      'ANGENOMMEN !!!!!!!!!!!!!!!!!!!!!
      'Bedingung2 in Spalte B = 2.Zelle
      If rngRow.Cells(2) = rngWeek Then intCnt = intCnt + 1
      'auswerten
      If intCnt = 2 Then _
         rngRow.Copy Sheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp).Offset(1)
      '
      intCnt = 0
   Next rngRow
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
24.05.2016 14:14:46 Nickerchen
NotSolved
Blau VBA Suche nach 1 Kriterium + innerhalb einer KW - Ausgabe auf anderem Tabellenblatt
 24.05.2016 19:04:22 Gast70117
NotSolved
24.05.2016 19:45:30 Nickerchen
NotSolved
24.05.2016 21:37:48 Gast42970
NotSolved
25.05.2016 01:44:29 Nickerchen
Solved