Maske mit VB starten
Alex Seisenberger
ich habe eine Tabelle, welche Kundendaten enthält (Zeile 10 bis ca. 45,
Spalte A bis I). Diese möchte ich gern mit der Maske von Excel bearbeiten.
Manuell klappts ja ganz toll, diese aufzurufen. Nun habe ich das ganze mal
mit VB aufgezeichnet und mit nen Button verbunden. Doch wenn ich die Maske
nun mit dem Button starte, bringt er mir die Fehlermeldung daß er die
Spaltenbeschriftung nicht erkannt hat, er aber die oberste dafür nimmt. Dies
soll ich nur mit OK bestätigen. Doch nach dieser Bestätigung kommt ne
Fehlermeldung von VB: "Laufzeitfehler 1004: Dieser Befehl kann in Listen
oder Bereichen, die verbundene Zellen enthalten, nicht angewendet werden."
Mein Code sieht so aus:
Sub maske()
Sheets("Liste").Select
Range("A10:I45").Select
Range("A10").Activate
ActiveSheet.ShowDataForm
End Sub
Weiß hier jemand Rat?
Und wenn ich schon dabei bin, dieses Programm zu verfluchen: Diese
Excel-Tabelle hat anstatt der Spaltenbeschriftung mit A, B, usw. eine
Nummerierung mit 1, 2 usw.
Wie kann man das wieder umstellen? Ich bastle schon länger an diesem Ding
und es war schon immer so.... weiss nicht wie ich es umgestellt habe...
Vielen Dank für eure Hilfe
Seisenberger Alex
Melanie Breden
"Alex Seisenberger" <se...@gmx.de> schrieb im Newsbeitrag
news:u7RefO4#BHA.2572@tkmsftngp05...
> Hallo NG,
>
> ich habe eine Tabelle, welche Kundendaten enthält (Zeile 10 bis ca. 45,
> Spalte A bis I). Diese möchte ich gern mit der Maske von Excel bearbeiten.
> Manuell klappts ja ganz toll, diese aufzurufen. Nun habe ich das ganze mal
> mit VB aufgezeichnet und mit nen Button verbunden. Doch wenn ich die Maske
> nun mit dem Button starte, bringt er mir die Fehlermeldung daß er die
> Spaltenbeschriftung nicht erkannt hat, er aber die oberste dafür nimmt.
Dies
> soll ich nur mit OK bestätigen. Doch nach dieser Bestätigung kommt ne
> Fehlermeldung von VB: "Laufzeitfehler 1004: Dieser Befehl kann in Listen
> oder Bereichen, die verbundene Zellen enthalten, nicht angewendet werden."
> Mein Code sieht so aus:
>
> Sub maske()
> Sheets("Liste").Select
> Range("A10:I45").Select
> Range("A10").Activate
> ActiveSheet.ShowDataForm
> End Sub
>
> Weiß hier jemand Rat?
dazu fällt mir im Moment leider auch nichts ein
> Und wenn ich schon dabei bin, dieses Programm zu verfluchen: Diese
> Excel-Tabelle hat anstatt der Spaltenbeschriftung mit A, B, usw. eine
> Nummerierung mit 1, 2 usw.
> Wie kann man das wieder umstellen? Ich bastle schon länger an diesem Ding
> und es war schon immer so.... weiss nicht wie ich es umgestellt habe...
>
diese Einstellung findest du unter Extras -> Optionen -> Registerkarte
Allgemein Z1S1-Bezugsart
HTH
mit Gruß
Melanie
XL2000
Alex Seisenberger
falsch mache??
Vielen Dank für eure Hilfe
mfg
Alex
"Alex Seisenberger" <se...@gmx.de> schrieb im Newsbeitrag
news:u7RefO4#BHA.2572@tkmsftngp05...
Dresdner Kleinwort Wasserstein
Das mit den Zahlen kriegst Du weg, wenn Du bei "Optionen" auf "General"
gehst und
"R1C1 reference style" ausschaltest.
Dann muss auch das andere auch laufen.
Gruß
ALF
"Alex Seisenberger" <se...@gmx.de> wrote in message
news:Orahy9P$BHA.1836@tkmsftngp05...
Alex Seisenberger
leider hat die Umstellung "R1C1.." usw. mit dem Maskenaufruf nichts gebracht
Hab nun die Formatierung der Spalten mit Buchstaben (Umstellung ging
natürlich superleicht... tja wenn man es weiss.. *gg*), aber leider besteht
das Problem beim Aufruf der Maske per VB-Code immer noch.
Egal, ob ich nun die ganze Tabelle oder nur nen Teil auswähle und die Maske
starte, per VB gibts ne Fehlermeldung, die gleiche Auswahl und
per ->Daten -> Maske... klappt sofort.
Die Fehlermeldung im VB lautet: Laufzeitfehler 1004: Dieser Befehl kann in
Listen oder Bereichen, die verbundene Zellen enthalten, nicht angewendet
werden
Ich hab in der ganzen Liste keine verbundene Zelle... auch den Autofilter
hab ich schon entfernt.
Das komische ist ja, daß sich die Maske per Hand starten lässt und per VB
nicht..
WER HÄTTE NE AHNUNG, WAS ICH NOCH VERSUCHEN KÖNNTE?????
Ist das nur ein Problem in Excel 2002??
Langsam verzweifel ich... aber trotzdem mal ein SUPERLOB an alle, die hier
so fleissig helfen.... ich denke, dieser Meinung sind hier viele.
Ciao Alex
"Dresdner Kleinwort Wasserstein" <Hakan....@drkw.com> schrieb im
Newsbeitrag news:ac2fpa$ne...@news-1.bank.dresdner.net...
Wilfried Butzek
>
> Hat denn keine ne Idee, wie sich die Maske per VB starten lässt oder was ich
> falsch mache??
>
> Vielen Dank für eure Hilfe
Hallo Alex,
probier's mal mit der Datenmaske wie folgt:
Sub maske()
Sheets("Liste").Activate
Sheets("Liste").Range("A10").Select
Selection.CurrentRegion.Name = "database"
ActiveSheet.ShowDataForm
End Sub
Mit freundlichem Gruß
Wilfried
Frank Arendt-Theilen
vergib für den Bereich A10:I45 den Namen Datenbank (dt. XL) bzw.
Database (engl. XL), dann sollte es gehen.
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de
Alex Seisenberger
ich hab den Code von Herbert eingesetzt, allerdings ohne Erfolg. Hier
nochmals der Code:
Sub maske()
Sheets("Liste").Activate
Sheets("Liste").Range("A10:I45").Select
Selection.CurrentRegion.Name = "database"
ActiveSheet.ShowDataForm
End Sub
Das hab ich hingebracht, daß der Bereich A10:I45 als Database festgelegt
ist.. allerdings kommt beim Aufruf der Maske die gleiche Fehlermeldung....
Anscheinend bezieht sich der Maskenaufruf wieder auf das Blatt und nicht auf
die Database....
Ich hoffe, ich nerv hier nicht zu sehr... aber ich geb ungern auf
*bineinalterKämpfer*
Probiert den oben genannten Code an ner einfachen Tabelle aus... wenns bei
jemanden doch funktioniert oder weiss worans liegt, wär ich heilfroh um des
Rätsels Lösung...
Also, schon mal fettes Merci an alle, die hier sich den Kopf zerbrechen
Ciao Alex
"Frank Arendt-Theilen" <Thei...@t-online.de> schrieb im Newsbeitrag
news:levaeukt07d71en1t...@4ax.com...
Frank Arendt-Theilen
der Code arbeitet wie erwartet und zeigt die Datenmaske an!
Alex Seisenberger
Hallo Frank,
jetzt weiss ich endlich warum es nicht funktionierte... *freu* ich habe die
Zelle A1 und B1 miteinander verbunden und darum konnte ich die Maske nicht
aufrufen.
Nun kommt aber die bittere Pille... obwohl ich den Bereich von A10 bis I45
auswähle, wird die Maske von A1 weg aufgerufen... obwohl der besagte Bereich
(A10 bis I45) im Hintergrund sogar grau markiert ist.. daher hatte der
Aufruf per VB nicht funktioniert, da er die Zeile 1 als Spaltenbeschriftung
hernimmt und die verbundene Zelle nicht aufnehmen konnte... und das ist das
nächste Problem: Warum beginnt die Maske in Zeile 1 obwohl ich nen anderen
Bereich markiert hab?
Wie kann ich es so einstellen, daß er als Spaltenbeschriftung die Zeile 10
hernimmt (die er auch markiert).
Komischerweise kommt auch das selbe Resultat raus, wenn ich den Bereich von
A10 bis I45 von Hand markiere und die Maske per ->Daten -> Maske aufrufe...
An ner leeren Tabelle (=neue Datei) funktionierts ja wunderbar...
Was noch komisch ist: Wenn ich nun in der gleichen Datei auf einem anderen
Blatt einen Bereich markiere und die Maske von Hand starte, geht gar nix
ausser der Fehlermeldung: "Datenbank-oder Listbereich ist ungültig"...
Ich sags euch, schön langsam schmeiss ich mich weg.... *gg*
Muss ich die Database löschen, bevor ich den Bereich neu vergebe...
Also, nochmals danke an alle die mir helfen.
Ciao Alex