Office: Inhalt zu Zelle hinzufügen

CreatorX · 16. Februar 2010

Hallo, ich würde gerne wissen, wie man Inhalt in Zellen hinzufügt, in denen schon etwas drin steht.

Also angenommen in der Zelle "A4" steht der Inhalt "Wort" und in einer Variable die Zahl 6. Jetzt möchte ich, dass in A4 der Inhalt "Wort 6" steht. Wie geht das?

:)

hary · 18. Februar 2010

Hallo
indem Du die Variable zum Zellinhalt hinzufuegst.
Code:

Dim i As Long
i = 6
Cells(4, 1) = Cells(4, 1) & " " & i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

CreatorX · 18. Februar 2010

Achso, ok das es so simpel ist, hätte ich nicht gedacht.
Nun ist es bei mir so, dass die Textausrichtung Horizontal und Vertikal zentriert ist, so dass der Inhalt genau in der Zellenmitte steht. Ist es auch möglich, dass das was als Variable hinzugefügt wird unter dem Ursprungsinhalt steht, also so eine Art Zeilenumbruch?
Also in etwa so:
Code:

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

Edit: Mir fällt gerade noch ein, dass ich ja auch noch einen kleineren Schriftgrad für die in der Variable stehende Zahl nehmen wollte. Wie sieht es im allgemeinen mit verschiedenen Formatierungen in einer Zeile via VBA aus?

pirat_zg · 18. Februar 2010

Hallo CreatorX

Code:

Private Sub DemoFunction()
Dim i As Integer
i = 6
Range("A1").Select
ActiveCell.Value = ActiveCell.Value & vbNewLine & i
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe es hilft dir weiter, sonst meldst dich einfach nochmal.

Gruss
Pirat

CreatorX · 18. Februar 2010

Range("A1").Select und Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
ist glücklicherweise nicht notwendig, da die Zelle ja schon Formatiert ist. Aber vbNewLine war das was ich gesucht habe. Danke!
Gibt es jetzt noch eine Möglichkeit die Schriftgröße der Zahl anzupassen (wenn möglich ohne Select)

pirat_zg · 18. Februar 2010

Hallo CreatorX

Code:

Private Sub DemoFunction()
Dim i As Integer
i = 6
Range("A1").Select
ActiveCell.Value = ActiveCell.Value & vbNewLine & i
ActiveCell.Characters(Start:=7, Length:=1).Font.Size = 16
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit dem Befehl zum ändern der Grösse kannst du auch Schriftart, Schriftfarbe..usw. ändern

Gruss
Pirat

jinx · 18. Februar 2010

Moin, Pirat,

da wird doch immer noch selektiert. *wink.gif*

Code:

Private Sub DemoFunction()
Dim i As Integer
i = 6
With Range("A1")
.Value = .Value & vbLf & i
.Characters(Start:=7, Length:=1).Font.Size = 16
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

CreatorX · 18. Februar 2010

Ah ok, wenn ich das richtig verstanden habe bestimmt Characters() die Position und Länge der Formatierung. Da ich davon ausging, dass es nicht relevant ist, habe ich bisher verschwiegen, dass sich sowohl der Ursprungsinhalt ("Wort") als auch die Variable ständig ändert. Somit müssten sich Start und Length auch ständig verändern. Wie mache ich das ganze dynamischer?

hary · 18. Februar 2010

Hallo
Teste mal dies, vlt. kannst Du es ja so nehmen.
Code:

Sub n()
'------ nur fuer Ziffern, aber auch wenn diese mitten drin stehen
Dim i As Integer
Dim a As Long
i = 645
With Range("A1")
.Value = .Value & vbLf & i
For a = 1 To Len(.Value)
If IsNumeric(Mid$(.Value, a, 1)) Then
.Characters(Start:=a, Length:=1).Font.ColorIndex = 3 'Ziffern Farbe Rot
.Characters(Start:=a, Length:=1).Font.Bold = True ' Ziffern Fett Schrift
.Characters(Start:=a, Length:=1).Font.Size = 16 ' Ziffern Schriftgroesse
End If
Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

CreatorX · 18. Februar 2010

Ja danke, Len hat mir vollkommen gereicht *wink.gif*
Ich habs jetzt so gemacht:
Code:

Sub Test()
Dim Kosten As Double
Dim a As Long
Dim b As Long
Kosten = 2.5
With Sheets("Kosten")
a = Len(.Cells(4, 1).Value) + 2
b = Len("(" & Kosten & ")") + 1
.Cells(4, 1) = .Cells(4, 1) & vbNewLine & "(" & Kosten & ")"
.Cells(4, 1).Characters(Start:=a, Length:=b).Font.Size = 8
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert soweit, leider erzeugt vbNewLine nicht nur einen Zeilenumbruch sondern auch ein Leerzeichen auf der oberen Zeile (ich habe in dem Code kein Leerzeichen eingebaut, also muss es wohl an vbNewLine liegen) und somit wird der zentrierte Inhalt um ein Zeichen nach links versetzt. Das ist zwar nur ein kleiner Schönheitsfehler, aber kann man das irgendwie korrigieren?

hary · 18. Februar 2010

hallo
mit chr(10)
Code:

Cells(1, 1) = Cells(1, 1) & Chr(10) & i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

CreatorX · 18. Februar 2010

Wow, ich Danke dir für die schnelle Hilfe, damit wäre mein Vorhaben perfekt *Smilie

Office: Inhalt zu Zelle hinzufügen

Inhalt zu Zelle hinzufügen

Inhalt zu Zelle hinzufügen

Inhalt zu Zelle hinzufügen

Inhalt zu Zelle hinzufügen

Inhalt zu Zelle hinzufügen - Similar Threads - Inhalt Zelle hinzufügen

Auf die nächst mögliche Zelle mit Inhalt zugreifen

Zelle per VBA auf ihren Inhalt prüfen und reagieren sowie bei Änderung

Prüfung unterschiedlicher Zellen auf Inhalt und Konsequenz

Inhalt Zelle inkl. bedingter Formatierung übernehmen

Zeilen löschen wenn eine Zelle der Zeile einen bestimmten Inhalt hat

Wenn Formel= Wenn etwas erfüllt, zeige Inhalt einer Zelle

Zellen Inhalt zurückgeben