wie kann man in einen XY-Punktdiagramm die vorhandenen Zellbezüge in absolute Werte umwandeln? Vermutlich nur mit Makro?
Grüße Werner
Option Explicit
Public Sub dQU_Werte_in_DR1()
Dim n$, t$, arrX, arrV
With Sheets("Tabelle4")
t = .[d1].Value
With .ChartObjects(1).Chart
.ChartTitle.Characters.Text = t
With .SeriesCollection(1)
arrX = .XValues
arrV = .Values
n = .Name
.Name = n
.Values = arrV
.XValues = arrX
End With
End With
End With
End Sub
Option Explicit
Public Sub in_dQU_Werte_einf()
Dim n$, t$, arrX, arrV, i As Byte
With Sheets("Tabelle4")
With .ChartObjects(1).Chart
For i = 1 To .SeriesCollection.Count
With .SeriesCollection(i)
arrX = .XValues
arrV = .Values
n = .Name
.Name = n
.Values = arrV
.XValues = arrX
End With
Next
End With
End With
End Sub
Problemstellung
In einer Liste enthaltende Kürzel sollen durch Komplettbegriffe ersetzt werden.
Problemstellung
In einer Tabelle stehen in verschiedenen Zellen Internetadressen. Wie kann ich diese Zellen in Hyperlinks umwandeln, ohne die Adressen im HyperLink-Dialog neu eintippen zu müssen?
Problemstellung
Wie kann ich als Text vorhandene Werte in Zahlen umwandeln?
Problemstellung
Wie kann ich in allen Zeichenfolgen in Spalte A die Punkte durch Leerzeichen ersetzen und die überflüssigen Leerzeichen entfernen. Das Ergebnis soll aus Kleinbuchstaben bestehen und in Spalte B ausgegeben werden.
Problemstellung
Wie kann ich Eingaben in eine UserForm-TextBox im Format TTMMJJ in ein gültiges Datum umwandeln? Es soll ebenfalls eine Eingabeprüfung erfolgen.
Problemstellung
Wie kann ich eine Zeichenfolge wie "21307" in eine Zeit mit dem Format m:ss,00 (2:13,07) umwandeln. Mit dieser Zeit soll weitergerechnet werden können.
Problemstellung
Alle "u" bis zum aktuellen Datum sollen in "U" umgewandelt werden.
Problemstellung
Nach einer Formatänderung von Zellen von Zahlenformaten zu Text werden die Zahlen zwar linksbündig dargestellt, verlieren ihre Zahleneigenschaft aber erst, wenn sie editiert werden. Die Routine wandelt den ausgewählten Bereich in Zahlen um.