Office: (Office 2013) Arbeitsmappe freigeben ausgegraut

Hallo Leute,

ich habe folgendes Problem. Und zwar funktioniert wohl mein VBA Makro nicht da ich ein Problem mit der Arbeitsmappe habe das diese wohl nicht oder doch freigegeben ist?! Auf jeden fall ist unter dem Reiter "Überprüfen" das Feld "Arbeitsmappe freigeben" ausgegraut. Dies ist wohl das Problem das eines meiner Makros nicht funktioniert. Hat hier vielleicht jemand einen Tipp?!

:)

 

Hi Nobby
Nur bei Dir am Rechner oder an anderen Rechnern auch ?

Gruß
DeBabba

 

Du meinst ich sollte die Datei auf einen anderen Rechner kopieren?
Oder ins Netzwerk packen und von einem anderen Rechner aus öffnen?

 

Genau,
so findest du raus, ob es an deinem Rechner liegt
Wenn es bei anderen Rechnern auch so ist liegt's an der Datei.

Bekommst Du ne Fehlermeldung?
Was funktioniert nicht ?

Du musst schon etwas genauer werden. Geht nicht ist etwas dünn

Gruß

 

Ich habe jetzt die Datei auf einem anderen Rechner geöffnet und hier geht das Makro auch nicht!

Also mein Makro soll Daten einer Spalte aus einer Tabelle in eine andere Spalte einer anderen Tabelle kopieren.

Makro geht nicht heisst bei mir, dass das Makro durchläuft und keine Fehlermeldung gibt aber nichts passiert! Die Daten werden einfach nicht kopiert!

Wenn ich aber eine neue Beispiel Excel Datei (ohne Sql Verbindung) anlege funktioniert das Makro wunderbar.

Doch in der Originaldatei ist eine SQL Verbindung von mir erstellt worden die Werte in eine Tabelle packt die ich halt nicht kopieren und in eine andere Tabelle überführen kann!

Das Makro sieht so aus:
Sub SpalteKopieren()
Dim letzte As Long
With Worksheets("Umrechnung")
letzte = .Cells(Rows.Count, 2).End(xlUp).Row + 1
If Worksheets("Datenbank").AutoFilterMode Then 'wenn Filter gesetzt
Worksheets("Datenbank").AutoFilter.Range.Columns(7).Copy .Cells(letzte, 1)
.Cells(letzte, 1).EntireRow.Delete
End If
End With
End Sub