Thema Datum  Von Nutzer Rating
Antwort
15.01.2015 10:43:20 peyd
Solved
Blau Wenn Wert in Spalte dann neue Zeile in anderes Tabellenblatt mit Daten und Formel
16.01.2015 08:41:21 Gast88872
Solved

Ansicht des Beitrags:
Von:
Gast88872		 Datum:
16.01.2015 08:41:21		 Views:
583		 Rating:
     
Antwort:
 Nein
Thema:
Wenn Wert in Spalte dann neue Zeile in anderes Tabellenblatt mit Daten und Formel

 halha

Hallo hier die Lösung, falls jemand ein ähnliches anliegen hat:

Sub Makro3()


Dim rCell As Range
Dim rRng As Range
Dim lzeile As Long


Set rRng = Worksheets("Verkaufsgruppen").Range("D3:D215")
   
 'Zellen im Bereich nach Ja durchsuchen
 For Each rCell In rRng.Cells
  
   'Prüfen ob Zellinhalt Ja ist
   If rCell.Value = "Ja" Then
   
    'falls ja, dann
    With Sheets("Giesserei")
     .Range("A4:A6").EntireRow.Insert   'Zeilen einfügen
     .Cells(4, 2) = "VOK"               'Text einfügen
     .Cells(5, 2) = "BEMI"
     .Cells(6, 2) = "Invest"
    
     With .Range("A4:A6")               'Spalte A formatieren
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .WrapText = False
      .ReadingOrder = xlContext
      .MergeCells = True
      .Value = rCell.Offset(0, -2)
     End With

    End With
   
  End If
     
Next rCell
   
   
'letzte beschriebene Zeile in Spalte B ermitteln für Summen
lzeile = Sheets("Giesserei").Cells(Rows.Count, 2).End(xlUp).Row
   
'Summewenn-Formeln einfügen; letzte Zeilen in Tabelle Giesserei
With Sheets("Giesserei")
 .Cells(lzeile + 1, 3).FormulaLocal = "=SUMMEWENN(B5:B" & lzeile & ";""VOK"";C5:C" & lzeile & ")"
 .Cells(lzeile + 2, 3).FormulaLocal = "=SUMMEWENN(B5:B" & lzeile & ";""BEMI"";C5:C" & lzeile & ")"
 .Cells(lzeile + 3, 3).FormulaLocal = "=SUMMEWENN(B5:B" & lzeile & ";""Invest"";C5:C" & lzeile & ")"
End With
  
End Sub

MfG peyd

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
15.01.2015 10:43:20 peyd
Solved
Blau Wenn Wert in Spalte dann neue Zeile in anderes Tabellenblatt mit Daten und Formel
16.01.2015 08:41:21 Gast88872
Solved