Thema Datum  Von Nutzer Rating
Antwort
12.03.2020 08:57:00 JS
NotSolved
Blau Excel Makro für Tabelle mit komplizierter Struktur
 12.03.2020 08:57:36 Gast3826
NotSolved
12.03.2020 09:46:27 Mase
NotSolved
12.03.2020 09:48:21 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast3826		 Datum:
12.03.2020 08:57:36		 Views:
687		 Rating:
     
Antwort:
  Ja
Thema:
Excel Makro für Tabelle mit komplizierter Struktur

Mein bisheriger Versuch:

Option Explicit
Sub bereich_kopieren()
Dim Mappe1 As Worksheet
Dim ControllingIstzeitBsp As Worksheet
Dim Cella As Range
Dim Cellb As Range


'Zielblatt = aktive Datei, aktives Blatt
    Set Mappe1 = ActiveWorkbook.ActiveSheet
'Quellblatt = Datei, Blatt 1
    Set ControllingIstzeitBsp = Workbooks.Open(Filename:="G:\EGREV\GB 2\Organisatorisches\TEMP - Controlling\ControllingIstzeitBsp.xls").Worksheets(1)
'Kopieren
For Each Cella In ControllingIstzeitBsp.Range("D1:D" & ControllingIstzeitBsp.Cells(ControllingIstzeitBsp.Rows.Count, "D").End(xlUp).Row)
For Each Cellb In ControllingIstzeitBsp.Range("F1:F" & ControllingIstzeitBsp.Cells(ControllingIstzeitBsp.Rows.Count, "F").End(xlUp).Row)

If InStr(1, Cella, "LAUF", vbTextCompare) > 0 And Cellb.Value = "Ergebnis" Then
   ' Copy>>Paste in 1-line (no need to use Select)
            ControllingIstzeitBsp.Rows(Cella.Row).copy Destination:=Mappe1.Rows(Cella.Row)
            'ControllingIstzeitBsp.Columns(4).Find("Ergebnis").Select
            'Selection.Copy Destination:=Mappe1.Rows(Cella.Row)
 'End If
End If

'If InStr(1, Cellb, "Ergebnis", vbTextCompare) > 0 Then
'   ControllingIstzeitBsp.Rows(Cellb.Row).Copy Destination:=Mappe1.Rows(Cellb.Row)
'End If

Next Cellb
Next Cella

    'ControllingIstzeitBsp.Range("D").Copy Destination:=Mappe1.Cells
    'Quelle schlie?en
    ControllingIstzeitBsp.Parent.Close
    Set ControllingIstzeitBsp = Nothing
    Set Mappe1 = Nothing
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
12.03.2020 08:57:00 JS
NotSolved
Blau Excel Makro für Tabelle mit komplizierter Struktur
 12.03.2020 08:57:36 Gast3826
NotSolved
12.03.2020 09:46:27 Mase
NotSolved
12.03.2020 09:48:21 Mase
NotSolved