Hallo,

du musst in dein Makro eine Abfrage einbauen, isnngemäß so

If Range("A4").Font.FontStyle = "Fett" Then..


Gruß

Helmut

hi all ^^

wie gewuenscht :-)

gruss nighty

Sub FettKopie()
    Dim BereichCell As Range
    Dim PosCell As Range
    Set BereichCell = Worksheets("Tabelle1").Range("A5:A" & Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row)
    For Each PosCell In BereichCell
        If IIf(PosCell.Font.Bold, PosCell.Value, 0) Then
            Worksheets("Tabelle1").Rows(PosCell.Row).Copy _
                    Worksheets("Tabelle2").Range("A" & Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
        End If
    Next PosCell
End Sub  

Guten Morgen,

vorab schon mal vielen Dank.
Meine Chefin hat mich gestern so mit dringenden Aufgaben eingedeckt, die vorgestern hätten fertig sein sollen, das ich wohl erst morgen dazu kommen werde das Makro zu testen.

mfg

Wolfgang H.

Hallo Helmut,

danke für den Hinweis, mir gelingt es zwar gelegentlich lauffähige Makros per Recorder aufzuzeichnen, aber viel mehr kann ich nicht.

Hallo nighty,

noch mal danke für dein Bemühen. Ich habe das Makro unter "DieseArbeitsmappe" und unter "Modul1" getestet. Leider war das Ergebnis beide Male die Anzeige:
Laufzeitfehler 13
Typen unverträglich
beim Debuggen wurde die Zeile beginnend mit
If Ilf(PosCell.....
gelb unterlegt.
Wie oben schon gesagt, von Makros verstehe ich wenig und komme damit leider nicht weiter.
Was muss ich korrigieren?
mfg
Wolfgang H.

hallo,

stell dein Makro mal hier ein, vielleicht können wir gemeinsam was draus machen oder erlätere mal wo in den Blättern das Fette steht (Spalte) und was alles in das andere Blatt soll

Gruß

Helmut

Hallo,
ich werde in Kürze eine Beispieldatei ins Netz stellen. Die muss ich aber erst noch erstelle, da ich keine realen hier posten will.
mfg
Wolfgang H.

Hallo,
das was ich bearbeiten will sind Exporte aus dem Buchhaltungsprogramm "Simba", Das Tabellenblatt "KOST orginal" ist ein unbearbeteter Export.

http://www.file-upload.net/download-2477097/H-hnerbach.xls.html
In diesem Export erkennt Excell nicht mal die Zahlen. Das Tabellenblatt "KOST" ist daher mit einem ADD IN bearbeitet, das vom Softwarehaus Looks & Vogel unter folgendem Link zur Verfügung gestellt wird.

http://www.lovo.de/index.php?option=com_content&view=article&am...

Jede Auswertung, die nach Excel exportiert wird, enthält Zeilen, die Daten enthalten, die eigentlich das Ergebnis von Berechnungen aus darüber liegenden Zeilen darstellen. Ich will und soll nun Tabellen erstellen, aus denen die Zeilen mit den Formeln in die Tabellen mit den Daten übertragen werden können.

Hallo,

versuch es mal mit dem Makro

Sub Fett()
' Makro1 Makro
' Makro am 01.05.2010 von Helmut aufgezeichnet
    Sheets("KOST").Select
    LetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 5 To LetzteZeile
        Sheets("[b]KOST[/b]").Select
        If Range("A" & i).Font.FontStyle = "Fett" Then
            Rows(i).Select
            Selection.Copy
            Sheets("[b]Tabelle1[/b]").Select
            Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
            ActiveSheet.Paste
        End If
    Next i
End Sub

Die fett hinterlegten Stellen sind mit deinen Dateinamen zu ersetzen

Gruß

Helmut

Hallo,

Habe gerade festgestellt, dass die Kombination "Code" und "B" nicht machbar ist, daher hier nochmal die beiden Zeilen

Sheets("KOST").Select

Sheets("Tabelle1").Select


Gruß

Helmut

Guten Morgen Helmut,

ich bin nun zwar wieder am Schreibtisch, werde aber wohl erst in einigen Tagen dazu kommen das Projekt weiter zu führen für das ich dann mehrere dieser Art von Makros brauchen werde. Das wird dann auch der Anlass dafür, das ich versuchen werde mehr über das Schreiben von Makros und ihre Funktionsweise zu lernen.

Erstmal vielen Dank. Ich melde mich dann bald wieder.

Mit freundlichen Grüßen

Wolfgang H.