Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Suche nach 1 Kriterium + innerhalb einer KW - Ausgabe auf anderem Tabellenblatt
 24.05.2016 14:14:46 Nickerchen
NotSolved
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:
Nickerchen		 Datum:
24.05.2016 14:14:46		 Views:
1150		 Rating:
     
Antwort:
  Ja
Thema:
VBA Suche nach 1 Kriterium + innerhalb einer KW - Ausgabe auf anderem Tabellenblatt

Guten Tag,

ich habe zwar ein ähnliches Thema gefunden, aber leider nicht genau dass was Ich brauche.

Ich habe versucht (mit Hilfe von Google), mir einen Code zu basteln, der in einem Blatt in einer bestimmten Spalte nach einem Wert Sucht der wiederum über einen Zellbezug festgelegt wird.

So sieht das bei mir aus, funktioniert allerdings schon mal nicht....

 

Sub FindenUndKopieren()

Dim ZellenInhalt As String
Dim rng As Range
Dim loDeinWert As Long
Dim sfirstaddress As String

ZellenInhalt = Worksheets("4-Wochen").Range("B3").Value
loDeinWert = ZellenInhalt 'gesuchter Wert

Set rng = Worksheets("AX").Range("K:K").Find(loDeinWert)

If rng Is Nothing Then
  MsgBox "Wert " & loDeinWert & " nicht gefunden!"
Else
  sfirstaddress = rng.Address
  Do
    rng.EntireRow.Copy
    Worksheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp) _
      .Offset(1, 0).PasteSpecial Paste:=xlPasteAll
    Set rng = Worksheets("AX").Range("K:K").FindNext(rng)
  Loop While Not rng Is Nothing And rng.Address <> sfirstaddress
End If

End Sub

 

Gesucht werden soll nach dem Wert aus Zelle B3 des Blatts "4-Wochen".
Die Werte sollen im Blatt "AX" Spalte K gesucht werden.
Alle gefunden Werte sollte mir der Code im "Tabellenblatt1" untereinander kopieren. (die ganze Zeile des gefundenen Wertes)

Kann mir hierzu jemand bitte meine Fehler aufzeigen?

Ich würde den Code auch gern noch erweitern dass er mir nur die Werte innerhalb einer festgelegten Kalenderwoche ausgibt. Die KW wird im Blatt "4-Wochen" Zelle B2 festgelegt.


Bin dankbar für jede Antwort
MfG B. Mühlburger

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 VBA Suche nach 1 Kriterium + innerhalb einer KW - Ausgabe auf anderem Tabellenblatt
 24.05.2016 14:14:46 Nickerchen
NotSolved
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