Community durchsuchen

Hallo zusammen, ich möchte einzelne Zeilen in einem Excel-Sheet per Makro sperren. In der Spalte E der aktuellen Zeile wird ein Text eingegeben. Wenn ich dann das Makro starte, wird zunächst überprüft, ob in der aktuellen Zeile und Spalte E Text steht. Ist dies der Fall, wird in Spalte Q der aktiven Zeile das heutige Datum eingetragen. Anschließend soll nur diese Zeile für weitere Eingaben gesperrt werden. Alle Zeilen darüber und darunter sollen weiterhin editierbar bleiben. Mit folgendem Code funktioniert das leider nur bedingt, denn die aktuelle Zeile wird zwar gesperrt und die Zeilen darunter sind weiterhin editierbar. Allerdings werden alle Zeilen darüber ebenfalls gesperrt. Und genau das soll verhindert werden. Hat jemand eine Idee, wie ich das bewerkstelligen kann? Sub Sperren1() ActiveSheet.Unprotect Password:="1234" If Range("E" & ActiveCell.Row).Value > 0 Then Range("Q" & ActiveCell.Row).Value = Date: ActiveCell.EntireRow.Locked = True ActiveSheet.Protect Password:="1234" End If End Sub

Hallo Leute. Ich bin Fisi und muss ein Visual Basic Excel Makro schreiben. Es geht darum zu Produkten anhand von Produkt-Nummer das zugehörig Bild einzufügen. Mein Makro funktioniert auch, aber ich wollte noch eine manuelle Selektion einfügen, dass nur für die manuell ausgewählten Produktnummern die Bilder eingefügt werden, da ich leider keine Ahnung von VBA habe. Habe ich es mir zusammen geschustert. Danke im Voraus!! hier der funktionierende Code. Private Sub CommandButton1_Click() Dim i As Integer For i = 2 To 10000 Dim strpath As String strpath = "C:\Bilder\" If ActiveSheet.Range("B" & i).Value > 0 Then On Error Resume Next ActiveSheet.Range("A" & i).Select Set Zelle = ActiveCell If Not Dir(strpath & Range("B" & i).Value & ".JPG") = "" Then Set Bild = ActiveSheet.Pictures.Insert(strpath & Range("B" & i).Value & ".JPG") With Bild .Placement = 2 .Left = Zelle.Left .Top = Zelle.Top .Width = Zelle.Height .Height = Zelle.Height End With End If End If Next End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub Hier der Code der nicht geht, habe das hier verwendet: http://www.supportnet.de/fresh/2005/4/id1049238.asp Private Sub CommandButton1_Click() Dim i As Integer For i = 2 To 10000 Dim strpath As String Dim rngBer As Range strpath = "C:\Bilder\" Set rngBer = Application.InputBox _ (prompt:="Bereich eingeben oder mit Maus auswählen", Type:=8) If ActiveSheet.Range("rngBer" & i).Value > 0 Then On Error Resume Next ActiveSheet.Range("A" & i).Select Set Zelle = ActiveCell If Not Dir(strpath & Range("rngber" & i).Value & ".JPG") = "" Then Set Bild = ActiveSheet.Pictures.Insert(strpath & Range("rngBer" & i).Value & ".JPG") With Bild .Placement = 2 .Left = Zelle.Left .Top = Zelle.Top .Width = Zelle.Height .Height = Zelle.Height End With End If End If Next End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub

Hallo Leute. Ich bin Fisi und muss ein Visual Basic Excel Makro schreiben. Ich habe schon etwas vorgeschrieben, aber ich komme gerade nicht weiter. Ich wollte fragen, ob mir jemand vllt helfen könnte?

Hallo zusammen, kennt jemand gute Tools womit man eine Berechtigungsmatrix des AD über Excel wiederspiegeln kann? Soll über Excel die ganzen Nutzer mit samt ihrer Berechtigungen, Gruppenzugehörigkeit etc. in Excel auflisten. Danke Gruß Shanks

Hallo ihr Informatiker! mein nächster Versuch in C# durchzusteigen bringt wieder Probleme auf. Kurz beschrieben: Ich erstelle eine Excel-Tabelle anhand der Eingaben in einer GUI, benutze dazu den Verweis "Microsoft.Office.Interop.Excel" in meinem Code und an sich hat auch alles funktioniert - bis mir plötzlich Fehlermeldungen um die Ohren geschmissen wurden obwohl ich gar nichts verändert hatte. Ein Blick in den Taskmanager zeigte mir das Excel quasi 20 mal nicht sichtbar offen war. Im Internet gibt es massig dazu und ich habe auch einiges ausprobiert, bis ich zwar das Problem mit dem "nicht-ganz-schließenden Excel" losgeworden bin, dafür aber immer ein Exception geworfen wird, sobald ich die Excel-Tabelle schließe. -> Ausnahme ausgelöst: "System.Runtime.InteropServices.COMException" in mscorlib.dll Grob mein Code (die ganzen Formatierungen innerhalb Excels ausgelassen): using Excel= Microsoft.Office.Interop.Excel; //Variablen Deklarieren Excel.Application myExcelApplication; Excel.Workbook myExcelWorkbook; Excel.Worksheet myExcelWorksheet; try { //Excel Prozess initialisieren myExcelApplication = new Excel.Application(); myExcelApplication.Visible = true; myExcelApplication.ScreenUpdating = true; //myExcelApplication = null; //Excel Datei anlegen: Workbook var myCount = myExcelApplication.Workbooks.Count; myExcelWorkbook = (Excel.Workbook)(myExcelApplication.Workbooks.Add(System.Reflection.Missing.Value)); myExcelWorksheet = (Excel.Worksheet)myExcelWorkbook.ActiveSheet; ... ... ... //release COM System.Runtime.InteropServices.Marshal.ReleaseComObject(myExcelWorksheet); System.Runtime.InteropServices.Marshal.ReleaseComObject(myExcelWorkbook); System.Runtime.InteropServices.Marshal.ReleaseComObject(myExcelApplication); System.Runtime.InteropServices.Marshal.ReleaseComObject(range1); System.Runtime.InteropServices.Marshal.ReleaseComObject(range2); System.Runtime.InteropServices.Marshal.ReleaseComObject(range3); System.Runtime.InteropServices.Marshal.ReleaseComObject(range4); System.Runtime.InteropServices.Marshal.ReleaseComObject(range5); System.Runtime.InteropServices.Marshal.ReleaseComObject(range6); System.Runtime.InteropServices.Marshal.ReleaseComObject(range7); System.Runtime.InteropServices.Marshal.ReleaseComObject(range8); System.Runtime.InteropServices.Marshal.ReleaseComObject(range9); System.Runtime.InteropServices.Marshal.ReleaseComObject(range10); } catch { MessageBox.Show("Fehler erkannt"); } finally { GC.Collect(); GC.WaitForPendingFinalizers(); GC.Collect(); GC.WaitForPendingFinalizers(); } Ich kann auch nicht mit Haltepunkten arbeiten, da das Programm an sich komplett durchläuft. Ich habe ja ein Fenster das im Hintergrund noch offen ist, allerdings ist es nicht schließbar solange die Excel-Tabelle offen ist (das ist erst so seit ich die Marshal-Klasse benutze um die Com-Objekte zu "lösen". Was muss ich also tun damit mein Programm 1. nach dem Schließen des Excel-Fensters auch wirklich alles schließt und nicht noch im Task-manager hängt 2. keine Exception schmeißt oder um das Problem genauer einzugrenzen? Ich hoffe ihr könnte mir helfen Grüße Tician