Supportnet / Forum / Tabellenkalkulation
format der nachbarzelle übernehmen
Frage
hallo community,
wie kann ich die formatierung (bspw. füllung) der nachbarzelle automatisch auf die nebenliegende übertragen?
danke, dietmar
Antwort 1 von Martina
Hallo,
ich hab hier ein ganz einfaches Makro:
Wenn es dir so genügt - viel Spaß damit.
Gruß Martina
ich hab hier ein ganz einfaches Makro:
Sub Makro()
Range("A1").Select 'Zelle auswählen
Selection.Copy 'Zelle kopieren
Range("A2").Select 'Zelle in die das Frormat übernommen werden soll auswählen
ActiveSheet.Paste 'einfügen
Application.CutCopyMode = False
Selection.ClearContents 'Zellinhalt löschen
End Sub
Wenn es dir so genügt - viel Spaß damit.
Gruß Martina
Antwort 2 von nighty
hi alle :)
auslesen der aktuellen zelle,da schoen klein,bestimmt verstaendlich fuer jeden und somit leicht weiterzu verarbeiten.
Sub Makro1()
Dim NumForm1$, NumForm2$
NumForm1 = ActiveCell.NumberFormat
NumForm2 = ActiveCell.NumberFormatLocal
MsgBox NumForm1 & Chr(10) & NumForm2
End Sub
auslesen der aktuellen zelle,da schoen klein,bestimmt verstaendlich fuer jeden und somit leicht weiterzu verarbeiten.
Sub Makro1()
Dim NumForm1$, NumForm2$
NumForm1 = ActiveCell.NumberFormat
NumForm2 = ActiveCell.NumberFormatLocal
MsgBox NumForm1 & Chr(10) & NumForm2
End Sub