Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
1500to1504
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
Inhaltsverzeichnis

.Activate funktioniert nicht, klein geschrieben

.Activate funktioniert nicht, klein geschrieben
12.07.2016 08:20:49
Aron
Hallo,
Nach dem einlesen einer Datenbank, sollen die Zellen aktiviert werden damit die
Zahlen in der weiteren Verarbeitung verwendet werden können.
Der Code:
Range("A:D").Select
Selection.NumberFormat = "General"
Range("A:D").activate
Funktionierte anfangs, jetzt nicht mehr. Was auffällig ist das ".Activate"
auf einmal klein geschrieben wird.
Aron

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .Activate funktioniert nicht, klein geschrieben
12.07.2016 08:37:37
Mullit
Hallo,
verdächtig, wahrscheinlich hast Du eine Variable oder Prozedur gleichen Namens in Deinem Code, verwende niemals VBA-Schlüsselwörter für eigene Variablen und Methoden, nutze immer Option Explicit und verzichte wo immer es geht generell auf das ganze Aktivieren und Selektieren...
Gruß, Mullit

AW: .Activate funktioniert nicht, klein geschrieben
12.07.2016 09:00:03
Aron
Hallo Mullit,
danke für deine Antwort.
Seltsam, ich habe "activate" weder für eine Variable noch für eine Prozedur verwendet.
Mein Workaround:
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Zwar nicht schön, aber es funktioniert.
Gruß Aron

Anzeige
AW: .Activate funktioniert nicht, klein geschrieben
12.07.2016 09:04:15
Mullit
Hallo,
okidoki, wie schon geschrieben, geht eigentlich immer ohne Select...
Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

Gruß, Mullit

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige