VBA Zeilen zählen und einfügen,bis zur ersten LZ
24.10.2014 16:22:56
braun
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.
2. Problem: Den Text Euro hätte ich gerne Fettgedruckt, da passt etwas nicht am Code.
Bin dankbar für jede Antwort!
Gruß,
Karin