HERBERS Excel-Forum - die Beispiele

Thema: Die tatsächliche Anzeige eines Zellinhaltes per VBA abrufen

Home

Gruppe

Allgemein

Problem

Wie kann ich über VBA prüfen, ob eine Spalte zu schmal konzipiert wurde, also Gitterzäune angezeigt werden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: Tabelle1

Private Sub CommandButton1_Click()
  Call Pruefen
End Sub

StandardModule: basMain

Sub Pruefen()
   Dim sTxt As String
   sTxt = Range("A1").Text
   If InStr(sTxt, "#") And Not IsError(Range("A1")) Then
      MsgBox prompt:="Spalte zu schmal"
   Else
      MsgBox prompt:="Spaltenbreite ok"
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zelle

eine Zelle, 2 Formeln, Zahlen aber getrennt Counter durch Änderung vom Zelleninhalt hochzählen
Multiselect in eine Zelle Kursiven Text aus Zelle extrahieren
Alle Zellen mit bestimmtem Datum markieren Vergleichen von zellen
Datum + Uhrzeit aus Textbox richtig in Zelle Zellenfärbung
ContentControl (WORD) in Excel Zelle schreiben PQ - Zeichen in Zelle zählen
Zelle färben wenn Wert in Liste vorkommt Zellen auslesen,wenn im Blattnamen 2019
Mehrere Zellen in mehreren Dateien ersetzen VBA Code um einzelne Zellen zu sperren
bestimmte Zeichenfolgen in Zellen löschen Summe von letzter freier Zelle in Spalte
Intelligente Tabelle - Auf Zelle zugreifen von and 2 Zellen vergleichen und Werte in Folgen summieren
1. freie Zelle in nicht zusammenhängenden Bereich Checkboxen Namen beliebig in eine Zelle schreiben
Variabler Text aus Zelle in Code integrieren Zellen vergleichen
Targetadress Zelle bestimmen Rechtsklick VBA nur bestimmte Zellen
Zellen aus Liste in Spalten korrekt umsortieren Speicherpfad aus zelle zusammenfügen
wenn . in Zelle darf kein OK geschrieben sein Autofilter mit formartierten Zellen mit VBA
Formel aus Zellen erstellen und einfügen als Forme Ausgewählte Zellen (Variabel) in Spalte A markiere
Zellen sperren wenn Bedingung in anderer Zelle erf Wert einer Zelle in Blatt mit diesem Zellennamen
Formel in eine Zelle einbinden Zelleninhalte übertragen u. fortlaufend anzeigen
Speichern mit Pfad aus Zelle einer nichtaktiven Ma VBA, 4 Informationen in 4 Zellen schreiben
Zellen einfärben trotz Passwortschutz Zellen einfärben wenn Bedingung erfüllt
Wenn alle Zellen unter einer Zelle leer sind, dann Zelle kann nicht geändert werden
Formel in Zelle schreiben ohne festen Zellbezug Befehlszeile aus Zelle in VBA
Bestimmte Zelle mit Makro berechnen Text aus Zelle in Internet Seite
Bedingte Formatierung bezogen auf 2. Zelle Sortieren von Datumswerten in Zelle durch VBA
Zelleneingabe nur per Combobox erlauben gleichzeitiges Ausfüllen mehrerer Zellen