Guten Morgen!
Es wäre nett, wenn ich eine Lösung für mein kleines Problem aufgezeigt bekommen würde.
Ich habe ein Makro mit dem ich, nachdem ich mehrere Zellen markiert habe, nach einem Zelleninhalt gefragt werde.
Das Makro verbindet die Zellen dann und gibt den eingegebenen Zelleninhalt in der neuen verbundenen Zelle zentriert wieder.
Leider muss ich einige Zellen so lange machen (über viele Spalten), dass der Inhalt der Zelle nicht mehr auf dem Bildschirm zu sehen ist. (Mit Zoom kann ich nicht arbeiten, da die Darstellung dann zu klein ist. Die Zellen werden teilweise über 100 Spalten und mehr verbunden)
Ich suche nun nach einer Lösung, dass der Inhalt dieser Zelle entweder automatisch im Bildschirmausschnitt zu sehen ist oder dass der Inhalt der Inputbox mehrfach hintereinander mit einem gewissen Abstand in die Zellen geschrieben wird bis diese zu Ende ist.
(Zusätzlich werden die ausgewählten Zellen noch farblich markiert und es besteht die Möglichkeit noch eine Inputbox zu befüllen)
Vielen Dank schon einmal im Voraus.
Hier das bisherige Makro:
Sub Makro1()
'Beschriftung per Input Box
Dim strInbox As String
strInbox = InputBox("Bitte Zellenbeschriftung eingeben")
ActiveCell.Value = strInbox
'Kommentar per InputBox
Dim sAlt As String
Dim sNeu As String
sNeu = InputBox("Kommentar")
If sNeu = "" Then GoTo Färben
With ActiveCell '/// Aenderung von Selection auf ActiveCell
On Error Resume Next
sAlt = .Comment.Text
If sAlt = "" Then .AddComment
sNeu = sNeu & Chr(10)
.Comment.Text sNeu
'.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
Färben:
With Selection.Interior
.Pattern = xlSolid
.Color = RGB(255, 153, 0)
End With
'Zellen verbinden
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End Sub