27.10.2014, 11:23
Guten Tag,
bin ein totaler Neuling was VBA Programmierung angeht.
Ich habe einige Fragen und hoffe,dass jmd. mir helfen kann.
Sub Makro13()
'Werte eingefügt
Cells(Application.WorksheetFunction.Max(Cells(65536, 1).End(xlUp).Row + 13, 1), 1).Value = "163
Positionen ausgewählt )"
Cells(Application.WorksheetFunction.Max(Cells(65536, 1).End(xlUp).Row + 2, 1), 1).Value = "Euro
:"
ActiveCell.Font.Bold = True
'
End Sub
Dieser Code klappt, die Werte kommen in die richtige Zeile,allerdings variiert die Zeilenanzahl (in diesem Fall 163). Ich möchte diese gerne bis zur ersten Leerzeile (Ergebnis ohne Leerzeile) zählen lassen und an genau dieser obigen Position im Text einfügen. ("163" Positionen ausgewählt)
2. Problem: Den eingefügten Text "Euro" hätte ich gerne Fettgedruckt, da passt etwas nicht am Code.ActiveCell macht die aktive Zelle auf der ich gerade bin fett, auf die genaue Zelle kann ich mich nicht beziehen, da der Text Euro an unterschiedlichen Stellen sein wird.
Bin dankbar für jede Antwort!
Gruß,
Karin
bin ein totaler Neuling was VBA Programmierung angeht.
Ich habe einige Fragen und hoffe,dass jmd. mir helfen kann.
Sub Makro13()
'Werte eingefügt
Cells(Application.WorksheetFunction.Max(Cells(65536, 1).End(xlUp).Row + 13, 1), 1).Value = "163
Positionen ausgewählt )"
Cells(Application.WorksheetFunction.Max(Cells(65536, 1).End(xlUp).Row + 2, 1), 1).Value = "Euro
:"
ActiveCell.Font.Bold = True
'
End Sub
Dieser Code klappt, die Werte kommen in die richtige Zeile,allerdings variiert die Zeilenanzahl (in diesem Fall 163). Ich möchte diese gerne bis zur ersten Leerzeile (Ergebnis ohne Leerzeile) zählen lassen und an genau dieser obigen Position im Text einfügen. ("163" Positionen ausgewählt)
2. Problem: Den eingefügten Text "Euro" hätte ich gerne Fettgedruckt, da passt etwas nicht am Code.ActiveCell macht die aktive Zelle auf der ich gerade bin fett, auf die genaue Zelle kann ich mich nicht beziehen, da der Text Euro an unterschiedlichen Stellen sein wird.
Bin dankbar für jede Antwort!
Gruß,
Karin