Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenwechsel/Typen unverträglich

Tabellenwechsel/Typen unverträglich
Peter
Hallo ihr,
ich löse über einen CommandButton einen Blattwechsel aus. Dabei habe ich auf dem zweiten Blatt folgenden Code stehen, welcher automatisch abläuft, sobald sich Inhalte der Zellen ändern.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Worksheets("Tabelle2").TextBox2.Value = _
Round(Worksheets("Tabelle3").Cells(14, 3).Value, 2) & "%"
Dabei erscheint immer der Laufzeitfehler 13 Typen unverträglich. Wenn ich jetzt im Editor den Code auf Pause setze und wieder anlaufen lasse, funktioniert die automatische Aktualisierung der TextBox2 ohne Probleme.
Ich denke, dass ich die SelectionChange beim Übergang von Tabelle1 auf Tabelle2 irgendwie unterbinden muss, um sie dann nach dem Tabellenwechsel (bei dem auch einige Zellen zu null gesetzt werden!) abspielen zu lassen.
Über Ratschläge freue ich mich!
LG, Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenwechsel/Typen unverträglich
30.03.2010 17:04:14
fcs
Hallo Peter,
zunächst einmal startet deine Prozedur nur automatisch, wenn im Blatt2 eine Zelle selektiert wird (Worksheet_SelectionChange) und nicht bei Wertänderung (Worksheet_Change). Es sei denn, diese Prozedur wird von einem anderen Makro aus aufgerufen.
Die Prozedur läuft in einen Fehler, wenn in der Zelle Worksheets("Tabelle3").Cells(14, 3) kein numerischer Wert steht.
Du solltest also ggf. eine Prüfung einbauen. Beispiel 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If IsNumeric(Worksheets("Tabelle3").Cells(14, 3).Value) Then
Worksheets("Tabelle2").TextBox2.Value = _
Round(Worksheets("Tabelle3").Cells(14, 3).Value, 2) & "%"
Else
Worksheets("Tabelle2").TextBox2.Value = "Fehler" & "%"
End If
End Sub

Gruß
Franz
Anzeige
AW: Tabellenwechsel/Typen unverträglich
30.03.2010 17:33:45
Peter
Hallo Franz,
es hat funktioniert, du hast recht!
Vielen lieben Dank.
LG, Peter

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige