Sie visualisieren in Ihrem #Diagramm #positive und #negative Werte? Und wollen die #negativen Werte anders #darstellen?
Die Option dafür finden Sie in der Eigenschaft Füllung im Dialog Datenreihen formatieren (den rufen Sie z.B. auf, indem Sie die Datenreihe markieren und im Kontextmenü Datenreihen formatieren… anklicken): hier gibt’s die Option Invertieren, falls negativ.
Das war’s auch schon 🙂
Sie wollen immer noch #Teile Ihrer #Zellinhalte per #VBA #formatieren? Da sind aber Texte mit einer Länge von mehr als 255 Zeichen dabei (das geht seit Version 2007) … und es #funktioniert #nicht?
Dann gehen wir das anders als gestern an – wir müssen die Positionen wegschreiben, dann die Klammern löschen und dann erst formatieren:
Sub Brackets_Bold() Dim myCell As Range Dim myTxt As Variant Dim myLen As Long Dim StartPos As Long Dim EndPos As Long Dim iStart(1 To 200) As Long Dim iEnd(1 To 200) As Long Dim I As Long Dim nI As Long On Error GoTo 0 For Each myCell In ActiveWorkbook.ActiveSheet.UsedRange.Cells I = 1 EndPos = 1 StartPos = InStr(EndPos, myCell.Text, "[") While StartPos <> 0 If Left(myCell.Formula, 1) <> "=" Then 'myCell.Characters(Start:=StartPos, Length:=1).Delete EndPos = InStr(StartPos, myCell.Text, "]") 'StartPos = StartPos If EndPos = 0 Then EndPos = Len(myCell.txt) End If iStart(I) = StartPos iEnd(I) = EndPos I = I + 1 StartPos = InStr(EndPos + 1, myCell.Text, "[") Else StartPos = 0 End If Wend nI = I - 1 myCell.Replace What:="[", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False myCell.Replace What:="]", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False For I = 1 To nI With myCell.Characters(Start:=iStart(I) - 2 * (I - 1), Length:=iEnd(I) - iStart(I) - 1).Font .Bold = True End With Next I Next myCell End Sub
Puh. Lösung gefunden 🙂
Sie wollen bestimmte Teile Ihrer Zellen in #Excel #fett #formatieren? Per #VBA?
Das Beispiel hier sollte Ihnen dabei gut helfen: es macht den ganzen Text innerhalb der mit eckigen Klammern gekennzeichneten Bereiche fett und entfernt die Klammern auch gleich.
Sub Brackets_Bold() Dim myCell As Range Dim myTxt As Variant Dim myLen As Long Dim StartPos As Long Dim EndPos As Long For Each myCell In ActiveWorkbook.ActiveSheet.UsedRange.Cells EndPos = 1 StartPos = InStr(EndPos, myCell.Text, "[") While StartPos <> 0 If Left(myCell.Formula, 1) <> "=" Then myCell.Characters(Start:=StartPos, Length:=1).Delete EndPos = InStr(StartPos, myCell.Text, "]") StartPos = StartPos If EndPos = 0 Then EndPos = Len(myCell.txt) Else myCell.Characters(Start:=EndPos, Length:=1).Delete EndPos = EndPos - 1 End If With myCell.Characters(Start:=StartPos, Length:=EndPos - StartPos + 1).Font .Bold = True End With StartPos = InStr(EndPos + 1, myCell.Text, "[") Else StartPos = 0 End If Wend Next myCell End Sub
Wie beschriften Sie die #Blasen in Ihrem #Diagramm mit ihren #Bezeichnungen? In #Excel #2013 und #2016 (und in Zukunft) ganz einfach:
Erstellen Sie Ihr Blasendiagramm mit x-Koordinaten, y-Koordinaten und den Daten für die Blasengröße wie gewohnt.
Nun fügen Sie über die Diagrammelemente-Schaltfläche Datenbeschriftungen hinzu – unter Nutzung von Weitere Optionen…
Damit finden Sie alles Erforderliche im Aufgabenbereich. Unter Datenbeschriftungen formatieren gibt’s im Untermenü ganz rechts Beschriftungsoptionen, und hier müssen Sie nun ein Hakerl bei Wert aus Zellen setzen und den Bereich auswählen…, in dem Ihre Beschriftungen stehen (im Beispiel ist es der Bereich A2:A7).
Das war’s auch schon. Kein Vergleich zu den früheren Versionen, wo Sie jede Beschriftung einzeln setzen mussten, oder?
Sie haben #Excel #2007 oder #2010, ein #Blasendiagramm und den Wunsch, Ihre Blasen mit Werten aus Zellen zu #beschriften?
Das geht – und zwar so:
Erstellen Sie das Blasendiagramm aus Ihren Daten – wählen Sie x-Werte, y-Werte und Werte für die Blasengröße wie gewohnt.
Ergänzen Sie mit DIAGRAMMTOOLS > LAYOUT > Beschriftungen > Datenbeschriftungen Datenbeschriftungen dort, wo Sie sie haben wollen.
Nun können Sie jede Beschriftung anklicken und in der Bearbeitungsleiste den Verweis auf die Quellzelle, die Sie verwenden wollen, setzen. = gefolgt von der Zelladresse.
Damit wird die Beschriftung dynamisch aus der Zelle übernommen.
In späteren Versionen geht das einfacher. Auch Excel entwickelt sich weiter 🙂 Ich zeig Ihnen das morgen.
Sie brauchen eine handliche #VBA-#Funktion, die eine #Excel-#Arbeitsmappe öffnet – aber nur, wenn diese nicht ohnehin bereits offen ist?
Nehmen Sie diese und verwenden Sie sie z.B. so:
Set myWb = WbOpen(varPath, varFileName)
Sie prüft, ob eine Arbeitsmappe mit dem Namen varFileName geöffnet ist, und versucht sie, falls sie nicht geöffnet ist, im Pfad varPath zu öffnen.
Public Function WbOpen(myFolder As Variant, myFile As Variant) As Workbook
'checks if a workbook is already open
'if not: opens it
'if not existing: error message
'to be used for e.g. Set myWb = WbOpen(varPath, varFileName)
On Error Resume Next 'Fehlerbehandlung
Set WbOpen = Workbooks(myFile)
If WbOpen Is Nothing Then
'if Workbook is not open, find it
If Dir(myFolder & "\" & myFile) <> "" Then
'if found: open it
Set WbOpen = Workbooks.Open(myFolder & "\" & myFile, _
UpdateLinks:=False)
Else
'if not found: tell the user
MsgBox "File does not exist:" & vbLf & _
myFolder & "\" & myFile, vbOKOnly + vbCritical, "File " & _
myFolder & "\" & myFile & " not found."
End If
Else
WbOpen.Activate
End If
End Function
Sie möchten mit #VBA am #Text in einer #Zelle herumbasteln? Zum Beispiel in einem Arbeitsblatt in jeder Zelle das zweite Zeichen fett machen?
Das geht so:
Dim myCell As Range For Each myCell In ActiveWorkbook.ActiveSheet.UsedRange.Cells With myCell.Characters(Start:=2, Length:=1) .Font.Bold = True End With Next myCell
Ihre #Excel-#Tabelle ist nicht bunt genug? Wussten Sie, dass Sie auch #Teile einer #Zelle #formatieren können? Also: Teile des Textes.
Probieren Sie’s: schreiben Sie etwas in eine Zelle, und markieren Sie dann in der Bearbeitungsleiste einen Teil des Textes. Was von den Befehlen in START > Schriftart nun nicht grau geworden ist, können Sie auf den Teil des Textes anwenden.
Sehen Sie genau hin: sogar eine eigene Minisymbolleiste gibt es!
Manchmal bin ich Gastautorin – zum Beispiel auf #Weiterbildungsmarkt mit einem Fachbeitrag über die #Basics beim #Datensammeln. Lesen Sie und fangen Sie gleich mit dem Sammeln an!
Sie wollen wissen, wie viele #unterschiedliche #Produkte jeder Kunde kauft? Nicht, wie oft er überhaupt etwas kauft (das wäre die #Anzahl)?
ein Beispiel: 
Herr Ilgob hat sechs Mal etwas gekauft – je ein Mal Marshmallows und Turkey, je zwei Mal Chicken und Onions. Das sind vier unterschiedliche Produkte. Wenn Sie diese Tabelle mit Pivot zusammenfassen, bekommen Sie mit „Anzahl“ die Anzahl der Zeilen – das wären sechs.
Haben Sie Ihre Daten allerdings dem Datenmodell hinzugefügt, dann steht Ihnen im Wertfeldeinstellungen-Dialog (PIVOTTABELLEN-TOOLS > ANALYSIEREN > Aktives Feld > Feldeinstellungen) auch die Einstellung Diskrete Anzahl bei Wertfeld zusammenfassen nach zur Verfügung.
Das bedeutet nun nicht, dass die Anzahl ermittelt, aber nicht darüber gesprochen wird – sondern eben, dass Werte (im ausgewählten Feld, hier Product), die mehrfach vorkommen, nur ein Mal gezählt werden.
Hier sehen Sie das Ergebnis – ich habe beide Zusammenfassungsoptionen nebeneinander gestellt; die Anzahl ist natürlich immer größer oder gleich der Anzahl verschiedene:
katharinakanns
Soprani Software 