Das letzte Clever-Excel-Forum.de - Treffen
fand vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt.

VBA Zeilen volle Zählen bis LZ und Anzahl in andere Zeile einfügen
#1
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
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste