Office: (Office 2013) VBA Format mit übernehmen

Lilalauneandreas · 31. Januar 2017

Hallo,

Mit meinem hier aufgeführten Code kann ich in eine TextBox eine Zahl eingeben, und es wird in Spalte A dann fortlaufend eine Nummerierung eingetragen- oder aber auch rückwärts gelöscht- wenn 2400 vorhanden- aber 123 eingetragen wird.

Funktioniert tadellos.

Ich möchte evtl. noch eine weitere Funktion mit dazu ausführen.

Es soll die Formatierung der ersten Zeile im Bereich A - L mit bis zur letzten ausgefüllten Zelle - wenn z.B 2300 eingegeben wurde- das eben auch bis zur Zeile 2300 die Spalten A-L das selbe Format dann haben, wie die Zeile 1 ( von A bis L).

Es sollen keine WERTE, FORMELN übernommen werden- nur die Formatierung mit Rahmen.

Code:

Private Sub CommandButton0051_Click() 'Lege Zeilenanzahl fest- mit Löschen
Dim letzte As Long, nAnzahl As Long
With Worksheets("Bearbeiten")
If IsNumeric(TextBox0023) Then
If CLng(TextBox0023) > 0 Then
nAnzahl = CLng(TextBox0023)
letzte = .Cells(Rows.Count, 1).End(xlUp).Row '--letzte belegte Zeile SpalteA
.Range("A" & nAnzahl + 1 & ":L" & letzte).ClearContents
With .Range("A1").Resize(nAnzahl)
.FormulaR1C1 = "=ROW(RC1)"
.Value = .Value
End With
End If
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann man den Code ´dahingehend modifizieren?

MfG Lilalauneandreas

:)

Luschi · 2. Februar 2017

Hallo Lilalauneandreas,

für solche Sachen ist der Makrorekorder immer wieder eine gute 1. Anlauf-Adresse - und das kam dabei heraus:
'Überschrift markieren
Range("A6 : D6").Select
'auf Pinselsymbol im Register Start-Zwischenablage mit Maus gedrückt
Selection.Copy
'Zielbereich mit linker Maustase markiert
Range("A9 : D19").Select
'und linke Maustaste losgelassen losgelassen
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Jetzt mußt Du nur noch Überschriftenzellene und ZielZellen bestimmen und in den oberen Code einsetzen, wobei das 'Select' dann noch entfallen kann, indem die jeweiligen Adreßbereiche als Rangeobjekt definiert werden.

Gruß von Luschi
aus klein-Paris

PS: Ich finde die 'Big-Grin'-Fratzen einfach unmöglich - deshalb die zusätzlichen Leereichen im definierten Rangebereich!

Lilalauneandreas · 2. Februar 2017

Hallo, Luschi (aus klein-Paris) wo ist das überhaupt???

Ja das mit dem Makrorecorder- habe ich schon gemacht-

das Problem ist ja die aktuelle Zeilenanzahl mit einzubeziehen, was in TextBox 0023 eingetragen wurde. Oder aber ist es besser, erst die Nummerierung abschließen lassen, und dann die Formatierung der Zellen A1-L1 anhand der Zeilenanzahl ablaufen zu lassen?

Da liegt ja das Problem- wie kann das in den Code mit eingearbeitet werden?

Code:

Sub Format_Uebertragen()

' Format übertragen

Range("A1:L1").Select
Range("A2:L796").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

LG Lilalauneandreas

Luschi · 2. Februar 2017

Hallo

bei mir klappt das so: Code:

Sub MachMal()
Dim ws As Worksheet, rg1 As Range, rg2 As Range
Dim n As Long

'hier den Tabellennamen anpassen
Set ws = ThisWorkbook.Worksheets("Tabelle2")

With ws
'Überschriften-Bereich definieren
Set rg1 = .Range("A1:L1")
'neu zu formatierender Bereich mit Überschriften-Zellen
Set rg2 = .UsedRange
'zu formatierender Bereich ohne Überschriften-Zellen
Set rg2 = rg2.Offset(1).Resize(rg2.Rows.Count - 1)
End With
'Überschriften kopieren
rg1.Copy
'Format übertragen
rg2.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

'Kopierbereich deaktivieren
Application.CutCopyMode = False

'Markierung der formatierten Zellen deaktivieren
rg2.Cells(1, 1).Select

'Objektvariablen zerstören
Set rg1 = Nothing
Set rg2 = Nothing
Set ws = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Lilalauneandreas · 3. Februar 2017

Danke Luschi
aus klein-Paris...

Läuft wunderbar.
Damit kann ich jetzt die Zeilen im Voraus festlegen und Formatieren- und entlaste damit während der Bearbeitung die Abarbeitung- was sonst bei jedem Zeilensprung ausgeführt werden musste. Nun läuft die eigentliche Bearbeitung schneller ab.
Danke für die Hilfe

Gruß Lilalauneandreas

Office: (Office 2013) VBA Format mit übernehmen

VBA Format mit übernehmen

VBA Format mit übernehmen

VBA Format mit übernehmen

VBA Format mit übernehmen - Similar Threads - VBA Format übernehmen

Pluszeichen bei pos. Werten mit benutzerdef. Formaten in markiertem Bereich voranstellen

Über VBA Bild in den Hintergrund legen

VBA Werte & Format Kopieren in neues Workbook

VBA Text in Spalten aber mit anderem Format in der 2. Spalte

Sverweis Format übertragen VBA?

Format einer Zelle ändern in VBA

VBA format von zelle übernehmen