Win XP / VB Excel 2002

Hallo NikoDemo,

Guten Abend…

Seltsames tut sich auf meinem Rechner.
Ich habe mehrere Programm mit VB geschrieben, die auch
hervorragend funktionierten.
Seit neuem aber stellen sich diese Programme tot.

Was hast du denn geaendert / neu installiert / deinstalliert etc. ?

  1. Nach dem Aufruf des Programms kommt zuerst die Meldung:
    „Diese Arbeitsmappe wird momentan von einer anderen
    Arbeistmappe verwendet und kann nicht geschlossen werden“.
    Ich will sie aber zu diesem Zeitpunkt gar nicht schließen, tu
    deswegen nichts dergleichen.

  2. Beim Debuggen erhalte ich die Meldung: "Laufzeitfehler
    „32809"“.
    Was bedeutet das?

Schau mal hier.
http://support.microsoft.com/kb/274222/de

Habe Office neu installiert, sogar das Betriebssystem neu
aufgespielt.

nützt alles nix.

Wer weis Rat?

Grüße

Nikodemo

MfG Alex

Grüezi NikoDemo

also: seit 35 Jahren haben experten noch keine lösung für
solch ein problem gefunden. erstaunlich.

Sorry, aber Sarkasmus oder Zynismus bringt dich weder weiter noch motiviert es andere die zu unterstützen.

mir fällt nur bei mir auf, das bei mir regelmäßig alle
excelanwendung irgendwann scheinbar ohne grund den geist
aufgeben. sicherungkopien laufen dann aber (manchmal) wieder.
mysterium.

Nein kein Mysterium - beim vielen Rummachen, ändern, reinkopieren und wiedr löschen, hinzufügen und entfernen von VBA-Codes usw bleibt immer etwas im Hinterdrund einer Excel-Mappe hängen. Irgendwann kommt der Moment wo dieser Ballast dazu führt, dass die Mappe nicht mehr korrekt läuft und ‚unerklärliche‘ Fehlermeldungen erzeugt.

Daher solltest Du die Mappe während der Entwicklung regelmässig neu aufbauen um den Ballast los zu werden, sprich die Daten und den VBA-Code auslagern und in eine neue Mappe überführen.
Das ist zwar Aufwand (für den es auch einige Tools gibt), lohnt sihc aber allemal.

Ein problem bleibt aber doch: was hatt es mit dieser komischen
meldung auf sich?

Keine Ahnung - deinen Code und die Manipulationen die er ggf. an der Mappe vornimmt kennen wir leider nicht.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

hi, ralf,

vielen dank für deine antwort.

ich habe nun folgendes gemacht:
ich habe aus dem tabellenblatt alles, aber auch alles gelöscht, was zu löschen war.

in dem nun absolut leeren tabelleblatt habe ich einen kurzen code eingefügt

command button…
range(„a30“).select.
…ende des codes.

was soll ich sagen? es ergibt sich der selbe effekt wie schon ein paar mal beschrieben.

nun fällt mir auf: dass leere tabellenplatz belegt immer noch 1,5 MB speicherplatz. wie gesagt, ein leeres tabellenblatt. wo verbirgt sich da was?

würmer aus der nase ziehen? das oben ist nun der code. nicht mehr.
(ihr müßt mir schon ein bisschen was glauben)

noch was: es verschwinden aus den angesprochenen tabellenblättern plötzlich alle macros…

was für angaben brauchst du noch?

es grüßt dich dein nikodemo

guten morgen thomas,

also rumprobiert und geändert habe ich zu diesem zeitpunkt nix.
ich habe mein programm morgens aufgerufen, und festgestellt, das meine cmdbuttons nicht mehr reagieren.

ich habe ralf noch mal ausführlich mein problem geschildert. um mich nicht zu wiederholen, bitte ich dich dort nachzulesen, was ich neu festgestellt habe. ich denke nicht, das es mein code ist, der die sache auslöst, dazu ist er zu einfach (anfänger) angelegt. ein paar .select - sprünge, ein paar schleifen. die aber viele zig-mal wiederholt.

noch einen schönen sonntag

es grüßt nikodemo

Hi Nikodemo,

leg eine neue Excel-Datei an, geh in die alte, kopiere das fragliche Blatt und füge es in der neuen Datei wieder ein (das hat Thomas auch schon empfohlen), dann schauen wir weiter.

Zur Fehlersuche gehört halt das Nachvollziehen - mir gelingt es jedenfalls nicht, anders gesagt, Dein Code läuft bei mir. Zwar unter Office 2000, aber das macht das Kraut auch nicht fett.

Gruß Ralf

Grüezi NikoDemo

ich habe nun folgendes gemacht:
ich habe aus dem tabellenblatt alles, aber auch alles
gelöscht, was zu löschen war.

in dem nun absolut leeren tabelleblatt habe ich einen kurzen
code eingefügt

command button…
range(„a30“).select.
…ende des codes.

was soll ich sagen? es ergibt sich der selbe effekt wie schon
ein paar mal beschrieben.

Ja, das liegt eben an dem im Hintergrund mitgeschleppten Ballast vom Erstellne/Programmieren/Manipulieren.

nun fällt mir auf: dass leere tabellenplatz belegt immer noch
1,5 MB speicherplatz. wie gesagt, ein leeres tabellenblatt. wo
verbirgt sich da was?

Wie oben und im anderen Beitrag gesagt - im Hintergrund der Mappe an den Du nicht rankommst.

würmer aus der nase ziehen? das oben ist nun der code. nicht
mehr.
(ihr müßt mir schon ein bisschen was glauben)

Tun wir ja - mach Du bitte dasselbe auch… :wink:

noch was: es verschwinden aus den angesprochenen
tabellenblättern plötzlich alle macros…

Auch das liegt an der korrupten Mappe und das wirst Du darin auch nicht mehr los.

Lagere deinen Code vollständig aus (speichern als .bas -Datei im VBA-Editor), lege eine neue Mappe an und importiere den Code darin wieder. Dazu kannst Du auch das folgende Tool verwenden:

http://www.appspro.com/Utilities/CodeCleaner.htm

Dann überträgst Du nur die Inhalte der Tabellenblätter in diese neue Mappe und fügst dann die Formatierungen wieder hinzu.
Keinesfalls darfst Du die kompletten Tabellenblätter in die neue Mappe verschieben/kopieren, da Du sonst den Ballast gleich wieder mitnimmst.

Diese Arbeit ist nicht ohne (je nach Umfang deiner Mappe), kann aber nicht umgangen werden.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Grüezi NikoDemo

also rumprobiert und geändert habe ich zu diesem zeitpunkt
nix.

Ja, aber vorher doch wohl - während der Erstellung der Mappe.

ich habe mein programm morgens aufgerufen, und festgestellt,
das meine cmdbuttons nicht mehr reagieren.

Ja, das ist die Auswirkung einer korrupt gewordenen Mappe.

ich habe ralf noch mal ausführlich mein problem geschildert.
um mich nicht zu wiederholen, bitte ich dich dort nachzulesen,
was ich neu festgestellt habe.

Habe ich getan und dort auch geantwortet.

ich denke nicht, das es mein code ist, der die sache auslöst, dazu :ist er zu einfach(anfänger) angelegt.

Ich denke, dass Du hier falsch denkst - gerade Code aus dem Anfangs-Stadium ist generell fehleranfällig (das ist nix gegen dich oder deine Programmier-Künste, sondern einfach eine Tatsache).

ein paar .select - sprünge

eben - siehe oben - solches ist zu >99% nicht notwendig.

ein paar schleifen. die aber viele zig-mal wiederholt.

…und das hilft dann gleich nochmals…

Lies bitte die Infos in dem genannten Link zum CodeCleaner aufmerksam durch und baue dann die Mappe wie vorgeschlagen neu auf.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

damit friede ist:

nachfolgend mein code:

'---------------------------------------------------------------------------------------
’ module : aufgabenverteilung
’ author : schmelzer
’ date : 31.08.2009
’ purpose : allg. datenerfassung und auswertung
'---------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------

’ auswahl und rücksprung haushalt #############################################################
Private Sub auswahl_01_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=17
End Sub

Private Sub auswahl_01_subjumphaushalt_click()
Range(„a1“).Select: Range(„i37“).Select
Workbooks.Open „C:\DailyOpera\ksdateien\haushalt“ & Range(„c80“).Value
End Sub

Private Sub auswahl_01_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

’ auswahl und rücksprung kontaktverwaltung ####################################################
Private Sub auswahl_02_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=17
End Sub

Private Sub auswahl_02_subjumpkontakte_click()
Range(„a1“).Select: Range(„i36“).Select
Workbooks.Open „c:\DailyOpera\KsDateien\kontakte\kskontakt.xls“
End Sub

Private Sub auswahl_02_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

’ auswahl und rücksprung geschaeftsvorfälle ###################################################
Private Sub auswahl_03_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=17
End Sub

Private Sub auswahl_03_subjumpgeschaeft_click()
Range(„a1“).Select: Range(„i36“).Select
Workbooks.Open „c:\dailyopera\ksdateien\geschaeft“ & Range(„g80“).Value
End Sub

Private Sub auswahl_03_home_click()
Range(„a1“).Select: Range(„i37“).Select
End Sub

’ auswahl und rücksprung posteingang ##########################################################
Private Sub auswahl_04__click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=34
End Sub

Private Sub auswahl_04_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

’ auswahl und rücksprung zugangscodes #########################################################
Private Sub auswahl_05_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=34
End Sub

Private Sub auswahl_05_jumpcodes_Click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=34
End Sub

Private Sub auswahl_05_subjumpcodes_click()
Dim selzeil As Integer, selspa As Integer, auszeil As Integer, ausspa As Integer
Dim selspaname As Integer, selspazweck As Integer, selspacode As Integer
Dim auspaname As Integer, ausspazweck As Integer, ausspacode As Integer
Dim liste(200) As String, newzeile As Integer, anfang As Integer, ende As Integer
Dim marker As Integer
’ clear ausgabefeld
Range(„aj25:au43“).Value = " "
'definition von anfangszeile und wertespalte
30 anfang = 66
40 ende = 160
50 selspa = 19
ausspa = 30
60 newzeile = 65
’ selektion gleicher einträge für auswahl combobox
’ selektierter eintrag in " hilfsdateien " , zelle k110
70 For selzeil = anfang To ende
80 liste(selzeil) = Cells(selzeil, selspa).Value
90 If liste(selzeil) = liste(selzeil - 1) Then GoTo 130
100 newzeile = newzeile + 1
110 Cells(newzeile, ausspa) = liste(selzeil)
130 marker = newzeile
140 Next selzeil
’ definition von anfangszeile und wertespalte
150 anfang = 66: ende = 160
160 selzeil = 66: auszeil = 25
170 selspaname = 19: selspazweck = 21: selspacode = 24
180 auspaname = 36: ausspazweck = 38: ausspacode = 42
190 marker = 0
’ zuordnung der zeilennummern zu den einträgen und werteausgabe
200 For selzeil = anfang To ende
210 If Cells(selzeil, selspaname).Value Range(„k110“).Value Then marker = marker + 1: GoTo 260: ’ offset zeilennummern
220 If Cells(selzeil, selspaname).Value = Range(„k110“).Value Then Cells(auszeil, auspaname).Value = Cells(selzeil, selspaname).Value
230 If Cells(selzeil, selspaname).Value = Range(„k110“).Value Then Cells(auszeil, ausspazweck).Value = Cells(selzeil, selspazweck).Value
240 If Cells(selzeil, selspaname).Value = Range(„k110“).Value Then Cells(auszeil, ausspacode).Value = Cells(selzeil, selspacode).Value
250 auszeil = auszeil + 1: ’ offset zeilennummer zur ausgabe
260 Next
’ rücksprung zu subhome
270 Range(„a1“).Select: ActiveWindow.SmallScroll toright:=34
End Sub

Private Sub auswahl_05_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

’ auswahl und rücksprung briefbearbeitung #########################################################
Private Sub auswahl_07_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=51
End Sub

Private Sub auswahl_07_sub_click()
Call Open_Word(„e:\DailyOpera\Brief.doc“)
End Sub


’ auswahl und rücksprung faxbearbeitung #########################################################
Private Sub auswahl_08_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=51
End Sub

Private Sub auswahl_08_subjumpfax_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

Private Sub auswahl_08_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

’ auswahl und rücksprung mailerstellung #########################################################
Private Sub auswahl_09_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=51
End Sub

Private Sub auswahl_09_subjumpmail_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

Private Sub auswahl_09_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

’ auswahl und rücksprung computer ###############################################################
Private Sub auswahl_10_Click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=68
End Sub
Private Sub auswahl_10_sub_click()
’ code wird noch erstellt
End Sub
Private Sub auswahl_10_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

Private Sub auswahl_11_Click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=68
End Sub

Private Sub auswahl_11_sub_click()
Range(„a1“).Select: Range(„i36“).Select
Workbooks.Open „C:\DailyOpera\ksdateien\gesundheit“ & Range(„e110“).Value: Rem Diabetes
End Sub

Private Sub auswahl_11_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

Private Sub auswahl_11_subjumpdiaet_Click()
Range(„a1“).Select: Range(„i36“).Select
Workbooks.Open „C:\DailyOpera\ksdateien\gesundheit“ & Range(„g110“).Value: Rem Diät
End Sub

Private Sub auswahl_12_Click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=68
End Sub

Private Sub auswahl_12_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

’ +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub commandbutton11_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=37
End Sub

Private Sub commandbutton2_click()
ActiveWindow.SmallScroll toright:=19
End Sub

Private Sub commandbutton22_click()
Range(„a1“).Select: Range(„i37“).Select
End Sub

Private Sub commandbutton23_click()
ActiveWindow.SmallScroll Down:=61
End Sub

Private Sub commandbutton24_click()
Range(„f17“).Select
End Sub

Private Sub commandbutton29_click()
ActiveWindow.SmallScroll up:=65
End Sub

Private Sub commandbutton3_click()
Range(„z14:aa20“).Select
End Sub

Private Sub commandbutton31_click()
10 Select Case MsgBox(„Tabelle speichern?“, vbOKCancel Or vbExclamation Or vbDefaultButton1, „hinweis“)
Case vbOK
20 ActiveWorkbook.Save
30 Case vbCancel
40 GoTo 60
50 End Select
60 Range(„a1“).Select: Range(„i36“).Select
End Sub

Private Sub commandbutton33_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

Private Sub commandbutton35_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

Private Sub commandbutton37_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

Private Sub commandbutton39_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

Private Sub commandbutton4_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=54
End Sub

Private Sub CommandButton40_Click()
Range(„s66:ad160“).Select
Selection.Sort Key1:=Range(„S66“), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=34
End Sub

Private Sub commandbutton41_click()
Range(„a85“).Select
End Sub

Private Sub commandbutton42_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub

Private Sub commandbutton44_click()
Range(„a1“).Select
ActiveWindow.SmallScroll Down:=61
ActiveWindow.SmallScroll toright:=17
End Sub

Private Sub commandbutton45_click()
Application.DisplayFullScreen = False
MsgBox „Daten werden gespeichert, Tableau wird geschlossen“, vbInformation, „hinweis“
ActiveWorkbook.Save
ActiveWorkbook.Close
Unload Me
End Sub

Private Sub commandbutton47_click()
Range(„a1“).Select: Range(„f15“).Select
End Sub

Private Sub commandbutton5_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=70
End Sub

Private Sub commandbutton51_click()
Application.DisplayFullScreen = False
MsgBox „Daten werden gespeichert, Tableau wird geschlossen“, vbInformation, „hinweis“
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Private Sub commandbutton53_click()
Application.DisplayFullScreen = False
MsgBox „Daten werden gespeichert, Tableau wird geschlossen“, vbInformation, „hinweis“
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Private Sub commandbutton55_click()
ActiveWindow.WindowState = xlMinimized
End Sub

Private Sub commandbutton58_click()
Range(„a1“).Select: Range(„i37“).Select
End Sub

'---------------------------------------------------------------------------------------
’ procedure : commandbutton34_click, einsprung von home
’ author : schmelzer
’ date : 04.09.2009
’ purpose : klassifizieren der einträge
'---------------------------------------------------------------------------------------

Private Sub commandbutton9_click()
Range(„a1“).Select: Range(„i37“).Select
End Sub

Zufrieden mit mir?

gruß Nikodemo

damit friede ist:

ist ja schließlich Weihnachten :smile:

Zufrieden mit mir?

nicht ganz - mir fehlt immer noch die Stelle, an der es knallt. Würde aber wohl auch nichts helfen, bevor der Tipp von Thomas umgesetzt ist.

Gruß Ralf

bevor ichs aufgebe:
Das ist mein code. und darin gibt es aufrufe durch commandbuttons.
(commandbuttons sind befehlsschaltflächen, die beim daraufclicken ein ereignis auslösen)
Kein einziger aufruf reagiert beim click. das ist das problem. was ist so schwierig an meiner beschreibung?

das ganze programm ist tot. so.

der debugger markiert auch keinen fehlerhaften code. wie soll ich rausfinden, wo der fehler sitzt?
der debugger reagiert beim z.b. einzelschritt sofort mit der meldung „laufzeitfehler 32809“. ohne markierung einer fehlerhaften stelle.

nikodemo

Kein einziger aufruf reagiert beim click.

Jetzt fangen wir mal ganz von vorne an: Verändert sich das Aussehen der Schaltfläche beim Klicken? Wenn nicht, ist das Programm schon vorher tot.

der debugger reagiert beim z.b. einzelschritt sofort mit der
meldung „laufzeitfehler 32809“. ohne markierung einer
fehlerhaften stelle.

Das ist das typische Fehlerbild, wenn ein nicht instanziiertes Objekt (grauenhaftes Wort, ich weiß) angesprochen wird. Und gerade das passiert leicht, wenn Prozeduren nicht über das zugehörige Ereignis, sondern aus dem Debugger heraus per F5 aufgerufen werden.

Was passiert beim Öffnen, bevor Du eine Schaltfläche anfasst? Läuft da ein Autoexec?

Was hat der Neuaufbau gebracht? Immer noch 1,5 Mb?

Gruß Ralf

wie kann man hier eine datei zusenden?

geht wohl nicht anders, ihr ungläubigen

hab das programm von allen sensiblen daten befreit, so daß ihr keinen unfug mehr anstellen könnt (das war bisher ja meine angst).

und dann könnt ihr ja mal rumspielen. da es diese problem ja noch andere tabellen bei mir (nicht alle) betrifft, bin ich eben sehr an der aufklärung des falles interssiert.
(ich mach das ja nicht, um jemanden zu ärgern).

danke im voraus für euren tipp.

ergebenst,
euer
nikodemo

hallo Nikodemo,

ich wollte ja zu dir nix mehr schreiben aber ich kann das nicht mitansehen.

bevor ichs aufgebe:

Stellt sich eher die Frage wann deine Helfer entnervt aufgeben.

(commandbuttons sind befehlsschaltflächen, die beim
daraufclicken ein ereignis auslösen)

*grins* Das wird das Wissen der Helfer ungemein erhöhen. Man könnte auch sagen, natürlich wissen deine Helfer was ein CommanButton bewirkt.

*mannomann* Ich wäre sehr glücklich der weltbeste schweizer Vba-Profi und Ralf würden mir bei meinem Problem so ausdauernd helfen.
ICH würde dann das tun was mir angeraten wurde, also die Mappe komplett neu aufbauen.

was ist so schwierig an meiner beschreibung?

Stichwort1: Würmer, Stichwort2: Nase.

Gruß
Reinhard

Grüezi Nikodemo

wie kann man hier eine datei zusenden?
geht wohl nicht anders, ihr ungläubigen

Wer ist denn hier ungläubig - Du hast bisher alle Hinweise auf einen Neu-Aufbau der Mappe(n) geflissentlich ignoriert (oder bist zumindest hier nicht darauf eingegangen)…

hab das programm von allen sensiblen daten befreit, so daß ihr
keinen unfug mehr anstellen könnt (das war bisher ja meine
angst).
und dann könnt ihr ja mal rumspielen. da es diese problem ja
noch andere tabellen bei mir (nicht alle) betrifft, bin ich
eben sehr an der aufklärung des falles interssiert.
(ich mach das ja nicht, um jemanden zu ärgern).

Ja, das glaube ich dir sehr gerne - hast Du dich denn schon mal um den CodeCleaner umgetan und vor allem auch die Informationen dort näher angesehen?
Dieses AddIn ist nicht einfach so entstanden.
Ich kenne den Ersteller persönlich und weiss, dass er das Tool selbst regelmässig bei der Entwicklung von Excel-VBA-Codes einsetzt um den Ballast im Hintergrund los zu werden.

Das Problem ist also nicht neu und es gibt wirksame ‚Gegenmittel‘ (die dir zwar deine Mappe nicht wieder zum Laufen bringen, aber dabei helfen wieder eine funktionierende Mappe zu erstellen).

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

also thomas:
ich habs nicht ignoriert, ich will blos nicht wieder mehrere monate vor dem pc sitzen, und alles neu aufbauen. (das meinst du doch).
ich würde dir gerne diese .xls - date zusenden, weis aber nicht wie das geht. bitte um einen tipp dazu.
dein angesprochenes programm, wie heist das nochmal und wo finde ich es?

kanns sicher gut gebrauchen, weil ich mich in vb und c# einarbeite und deshalb viel rumexperimentiere. (hat jetzt nix mit dem aktuellen problem zu tun, das programm war abgeschlossen und lief jetzt meherere monate, bis, na ja, bis das leidige beschriebene problem auftauchte).

deine geschätzte antwort erwartend verbleibe ich

mit freundlichen grüßen

nikodemo

Grüezi NikoDemo

ich habs nicht ignoriert, ich will blos nicht wieder mehrere
monate vor dem pc sitzen, und alles neu aufbauen. (das meinst
du doch).

Ja, genau das meine ich und - glaube mir - um den Neu-Aufbau wirst Du kaum herum kommen, da eine einmal korrupte Mappe nicht ‚heilbar‘ ist.

ich würde dir gerne diese .xls - date zusenden, weis aber
nicht wie das geht. bitte um einen tipp dazu.

Das ginge allenfalls per direkter Mail, was aber dein Problem nicht löst. Hier auf W-W-W kannst Du keine Mappe hochladen.

dein angesprochenes programm, wie heist das nochmal und wo
finde ich es?

Hmmm Du hast also meinen Beitrag weder gelesen noch bist dem Link nachgegangen? Das enttäuscht mich ehrlich gesagt soch etwas.
Du erwartest Hilfe vom W-W-W Brett, gehst aber nur dem nach was in die von dir vorgestellt Richtugn zielt?

Doch gerne verweise ich auf meinen Beitrag hier:

/t/win-xp-vb-excel-2002/5628121/16

kanns sicher gut gebrauchen, weil ich mich in vb und c#
einarbeite und deshalb viel rumexperimentiere. (hat jetzt nix
mit dem aktuellen problem zu tun, das programm war
abgeschlossen und lief jetzt meherere monate, bis, na ja, bis
das leidige beschriebene problem auftauchte).

Das hat, aus den mehrfach geschilderten Gründen, durchaus mit der aktuellen Sitation zu tun.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

dear drambeldier…

das mit dem hochladen hab ich noch nie gemacht, wird deshalb einige zeit dauern.

ich beatnworte doch gerne deine fragen, zumal ich ja ein besonderes interesse daran habe.

aber es sind jetz eine menge an rückfragen bei mir eingetroffen. nicht gleich beleidigt sein: welche frage meinst du?

ein programm namens code-cleaner hab ich mir besorgt. komm aber noch nicht ganz klar damit. wird auch noch dauern.

gruß

nikodemo

hier also mein weihnachtsgeschenk:

[…]

hoffentlich hilfts.

es grüß dich

nikodemo

[Team: Link entfernt]

‚Zwei Seelen wohnen, ach! in meiner Brust‘
Grüezi Ralf

Ich finds (einerseits) fein, dass Du die Mappe durch den Neu-Aufbau wieder zum laufen gebracht hat.

Dennoch (andererseits) hat sich so der Lerneffekt in engen Grenzen gehalten - und das ist IMO letztlich der tiefere Sinn von NewsGroups, Foren und auch dem W-W-W Brett hier: „Hilfe zur Selbsthilfe“.

…daher auch das Goethe-Zitat als Betreff…

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Moin, Thomas,

der tiefere Sinn (…) „Hilfe zur Selbsthilfe“.

das sehe ich auch so, aber manchmal braucht’s halt einen Schubs. Ab Sohle 7 hört der Spaß auf :smile:

Gruß Ralf