|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Auf ausgewählte Zeile beziehen |
13.05.2020 12:21:54 |
Martin H. |
|
|
|
13.05.2020 12:32:50 |
Gast11040 |
|
|
|
13.05.2020 12:37:15 |
Martin H. |
|
|
|
13.05.2020 12:43:22 |
Gast60083 |
|
|
|
13.05.2020 13:02:31 |
Martin H. |
|
|
|
13.05.2020 13:11:40 |
Gast43481 |
|
|
|
13.05.2020 13:33:39 |
Martin H. |
|
|
Von:
Martin H. |
Datum:
13.05.2020 12:21:54 |
Views:
1022 |
Rating:
|
Antwort:
|
Thema:
Auf ausgewählte Zeile beziehen |
|
HI,
kann mir jm mein aufgezeichnetes Makro so ändern, dass es sich auf die ausgewählte Zeile bezieht?
Danke...
Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+r
'
Range("C56:D56,F56:G56,L56").Select
Range("L56").Activate
Selection.Delete Shift:=xlToLeft
Rows("56:56").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Font.Size = 9
Selection.Font.Size = 10
Selection.Font.Bold = False
Range("F56").Select
Selection.Font.Size = 9
Selection.Font.Size = 8
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("C56:I56").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Auf ausgewählte Zeile beziehen |
13.05.2020 12:21:54 |
Martin H. |
|
|
|
13.05.2020 12:32:50 |
Gast11040 |
|
|
|
13.05.2020 12:37:15 |
Martin H. |
|
|
|
13.05.2020 12:43:22 |
Gast60083 |
|
|
|
13.05.2020 13:02:31 |
Martin H. |
|
|
|
13.05.2020 13:11:40 |
Gast43481 |
|
|
|
13.05.2020 13:33:39 |
Martin H. |
|
|