```vba Sub CheckAboveBelowOrExit() Dim r As Long, c As Long r = ActiveCell.Row c = ActiveCell.Column 'Wenn es keine Zelle darüber oder darunter gibt: Exit If r = 1 Or r...
VBA in Excel für Mac 2010: Wie wird das erste Wort jeder Zelle in einer Auswahl großgeschrieben?
Antwort vom```vb Sub ErstesWortGrossInAuswahl() Dim c As Range Dim s As String Dim p As Long For Each c In Selection.Cells If Not IsError(c.Value) Then s = CStr(c.Value) s = Trim$(s) If Len(s) > 0 Then ' erstes Wortende (Leerzeichen) suchen p = InStr(1, s, " ") If p = 0 Then ' nur ein Wort s = UCase$(Left$(s, 1)) & Mid$(s, 2) Else ' erstes Wort s = UCase$(Left$(s, 1)) & Mid$(s, 2, p - 1) & Mid$(s, p) End If c.Value = s End If End If Next c End Sub ```
Verwandte Fragen
Excel: Reicht beim Kopieren eines benannten Bereichs per Makro der Bereichsname oder muss der Blattname angegeben werden?
Der **Bereichsname reicht**, **wenn** es sich um einen **arbeitsmappenweiten** Namen handelt (also im Namens-Manager ohne Blattpräfix). Dann kannst du in VBA direkt über den Namen zugreifen,...
Wie bekomme ich in einer Excel-VBA MsgBox das VB-Critical-Symbol (roter Kreis mit Kreuz) zusammen mit VBYesNo?
In VBA ist das Icon (z.B. roter Kreis mit Kreuz = `vbCritical`) unabhängig von den Buttons (`vbYesNo`). Du kombinierst beides einfach per Addition (oder `Or`): `MsgBox "Text", vbYesNo...
Wie verwende ich im Excel-VBA-Makro eine MsgBox mit vbYesNo, sodass bei Yes fortgesetzt und bei No mit Exit Sub beendet wird?
In VBA setzt du den Rückgabewert der `MsgBox` auf eine Variable und prüfst ihn: ```vba Sub Beispiel() Dim r As VbMsgBoxResult r = MsgBox("Weiter machen?", vbYesNo + vbQue...
Wie kann ich in Excel-VBA einen langen MsgBox-Text im Code in eine neue Zeile umbrechen?
In VBA brichst du den **String im Code** mit einem Zeilenumbruch-Zeichen um – üblich ist `vbCrLf` (oder `vbNewLine`). Beispiel: ```vba MsgBox "Erste Zeile" & vbCrLf & _...
Welche Excel-Formel zählt Zeilen, in denen Bereich1 = 2025 und Bereich2 = 1 ist?
`=ZÄHLENWENNS(Bereich1;2025;Bereich2;1)`
Welche Excel-Formel liefert das kleinste Datum im Bereich A5 bis A(Datenende), wenn „Datenende“ in Tab2!B27 steht?
`=MIN(A5:INDEX(A:A;'Tab 2'!B27))`
Was gebe ich im Windows-Explorer ins Suchfeld ein, um eine alte Excel-Tabelle nach Dateiendung zu finden?
Im Suchfeld im Windows-Explorer kannst du nach Excel-Dateien über die Dateiendung filtern, z. B.: - `*.xls` (alte Excel-Dateien bis Excel 2003) - `*.xlsx` (neuere Excel-Dateien) - `*.xlsm` (Exce...
Wie konvertiere ich eine MS-Word-DOC-Datei in eine MS-Excel-XLSX-Datei?
Eine **Word-Datei (.doc/.docx)** lässt sich nicht „1:1“ sinnvoll in eine **Excel-Datei (.xlsx)** umwandeln, weil Word ein Textlayout-Format ist und Excel tabellarische Daten erwartet....
Wie ändere ich Dropdown-Menüs in Microsoft Excel?
Drop-down-Menüs in Excel sind meist **Datenüberprüfung-Listen**. So änderst du sie: 1) **Zelle mit dem Drop-down anklicken** 2) **Daten** → **Datenüberprüfung** (...
