Thema Datum  Von Nutzer Rating
Antwort
22.07.2017 12:09:54 deesnider
Solved
22.07.2017 13:01:28 Gast23715
NotSolved
24.07.2017 16:30:57 Gast72397
NotSolved
Blau Daten nach Bedingungen in Tabelle schreiben
 24.07.2017 17:57:40 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
24.07.2017 17:57:40		 Views:
614		 Rating:
     
Antwort:
  Ja
Thema:
Daten nach Bedingungen in Tabelle schreiben

Hallo,

z.B. mit dem Autofilter per Makro. Das Makro in ein allgemeines Modul und einer Schaltfläche zuweisen.

Option Explicit

Public Sub Schicht_kopieren()
Dim loLetzte As Long
Dim loLetzteZ As Long
Dim raBereich As Range
Dim daDatum As Date
Dim strSchicht As String

loLetzte = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row

With Worksheets("Tabelle1")
    daDatum = CDate(.Cells(1, 1))
    strSchicht = .Cells(2, 1)
End With

Worksheets("Tabelle2").AutoFilterMode = False

Worksheets("Tabelle2").Range("$A$1:$L$" & loLetzte).AutoFilter Field:=1, Criteria1:= _
"=" & daDatum, Operator:=xlAnd
Worksheets("Tabelle2").Range("$A$1:$L$" & loLetzte).AutoFilter Field:=2, Criteria1:=strSchicht
    
Worksheets("Tabelle3").Cells.ClearContents

Set raBereich = Worksheets("Tabelle2").AutoFilter.Range.SpecialCells(xlCellTypeVisible)
raBereich.Copy Worksheets("Tabelle3").Cells(1, 1)

loLetzteZ = Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row

If loLetzteZ = 1 Then
    Worksheets("Tabelle3").Cells.ClearContents
    MsgBox "Kein Suchergebnis vorhanden."
    Worksheets("Tabelle2").AutoFilterMode = False
End If

Worksheets("Tabelle2").AutoFilterMode = False

Set raBereich = Nothing
End Sub

 

Gruß Werner

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
22.07.2017 12:09:54 deesnider
Solved
22.07.2017 13:01:28 Gast23715
NotSolved
24.07.2017 16:30:57 Gast72397
NotSolved
Blau Daten nach Bedingungen in Tabelle schreiben
 24.07.2017 17:57:40 Werner
NotSolved