Makro: Formatierung suchen, Zeile kopieren

Question

Hallo Helfer,

in einer Datei sind 2 Tabellenblätter.
In Tab1 Spalte A soll ein Makro ab Zeile 5, (bis Zeile ??) die Zellformatierung auf "FETT" prüfen, immer dort wo dies zutrifft, soll die entsprechde Zeile aus Tab2 nach Tab1 kopiert werden.

mfg
woher2010

Answer 1

Hallo,

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

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


Gruß

Helmut

Answer 2

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

Answer 3

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.

Answer 4

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.

Answer 5

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

Answer 6

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.

Answer 7

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

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.

www.lovo.de/index.php?option=com_content&view=article&id=22&Itemid=29

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.

Answer 8

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("KOST").Select
If Range("A" & i).Font.FontStyle = "Fett" Then
Rows(i).Select
Selection.Copy
Sheets("Tabelle1").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

Answer 9

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

Answer 10

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.