Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro läuft nicht mit Blattschutz

Forumthread: Makro läuft nicht mit Blattschutz

Makro läuft nicht mit Blattschutz
01.05.2009 16:40:56
tekiela
Hi,
ich will per Makro + Button bei Bedarf eine neue Zeile hinzukopiert haben, wobei die Formeln aus Spalte A und I runterkopiert werden sollen.
Auch stört mich noch, dass die eingefügte Zeile nicht am Ende hinzukopiert vor der Summenzeile hinzukopiert wird.
Wenn ich dann den Blattschutz ohne PW aktiviere, komme ich in den debugg-Modus.
Wie geht das?
Hat jemand eine Idee?
Vielen Dank für eine Hilfe Leif / tekiela
Hier die Tabelle:
https://www.herber.de/bbs/user/61557.xls
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro läuft nicht mit Blattschutz
01.05.2009 20:15:15
franc
so?
Dim iLetzteZeile As Integer
ActiveSheet.Unprotect
iLetzteZeile = Range("A3").End(xlDown).Row + 1
Rows(iLetzteZeile).Insert Shift:=xlDown
Range("A3").AutoFill Destination:=Range("A3:A" & iLetzteZeile), Type:=xlFillSeries
Range("I3").AutoFill Destination:=Range("I3:I" & iLetzteZeile), Type:=xlFillCopy
ActiveSheet.Protect
Anzeige
AW: Makro läuft nicht mit Blattschutz
01.05.2009 20:21:52
franc
PS:
Du solltest mind 2 Positionen drinstehen haben das es funktioniert, ansonsten bekommst nen Fehler.
Du kannst auch
iLetzteZeile = Range("A5000").End(xlUp).Row + 1
verwenden, dann geht er von Zelle A5000 zur ersten beschriebenen Zelle in Spalte 1 hoch und fügt darunte eine Zeile ein.
Bei dem 1. Beispiel macht er es andersrum. Sprich Von A3 runter zur letzten aber wenn in A4 nichts steht, würde er bis zur letzten Zeile springen.
Anzeige
AW: Makro läuft nicht mit Blattschutz
02.05.2009 07:59:52
tekiela
Hi franc!
Weltklasse! Genau so soll es sein!
Das mit dem Blattschutz hatte ich auch schon hingefummelt bekommen, aber das andere Problem hätte ich so nicht gewuppt bekommen.
Danke!
Leif / teKIELa
AW: Makro läuft nicht mit Blattschutz
01.05.2009 20:53:43
franc
hmm aber keine ahnung wie man die summenformel in spalte J unten anpaßt - entweder ich hab grad denkfehler oder ich bin zu doof ^^
Egal wie ich es anstelle es steht immer das gleiche drin oder es kommt nen fehler
Anzeige
AW: Makro läuft nicht mit Blattschutz
02.05.2009 08:34:55
tekiela
Ja, Mist!
Da muss ich dann auch wieder weiterknobeln, oder weiß jemand Rat?
Gruß Leif / teKIELa
Summe in J passt sich an...
02.05.2009 09:01:36
robert
hi,
du musst in die eingefügten zellen einen wert eingeben, sonst immer 100
gruß
robert
AW: Summe in J passt sich an...
02.05.2009 10:23:11
Gerd
=SUMME(INDIREKT("I3:I"&ZEILE()-1))
Guten Morgen Robert,
wie meinst Du das?
Gruß Gerd
Anzeige
AW: Summe in J passt sich an...
02.05.2009 14:57:26
robert
hi gerd,
hab ich was falsch verstanden?
di summe in spalte I passt sich doch nach jeder zeileneinfügung an-oder ?
gruß
robert
Dateneingabe

 ABCDEFGHI
1PositionMengeArtikel EinzelpreisGesamtpreis
2         
31 1   10,00 € 10,00 €
42 2   20,00 € 40,00 €
53 3   10,00 € 30,00 €
64 4   5,00 € 20,00 €
75        
86        
97        
10         
11      Summe 100,00 €
12      MWSt 19,00%
13      Brutto 119,00 €
14         

Formeln der Tabelle
ZelleFormel
I3=WENN(ISTLEER(G3); "";PRODUKT(C3;G3))
I4=WENN(ISTLEER(G4); "";PRODUKT(C4;G4))
I5=WENN(ISTLEER(G5); "";PRODUKT(C5;G5))
I6=WENN(ISTLEER(G6); "";PRODUKT(C6;G6))
I7=WENN(ISTLEER(G7); "";PRODUKT(C7;G7))
I8=WENN(ISTLEER(G8); "";PRODUKT(C8;G8))
I9=WENN(ISTLEER(G9); "";PRODUKT(C9;G9))
I11=SUMME(I3:I10)
I13=I11+(I12*I11)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Anzeige
AW: Makro kürzer
02.05.2009 12:54:39
Erich
Hi Leif und Tino,
da hier sollte m. E. auch reichen: Private Sub CommandButton1_Click() Dim lngZ As Long ActiveSheet.Protect "xxx", UserInterfaceOnly:=True ' braucht nur 1 x zu laufen lngZ = Cells(Rows.Count, 1).End(xlUp).Row Rows(lngZ).Copy Rows(lngZ + 1).Insert Shift:=xlDown Cells(lngZ + 1, 1).Value = Cells(lngZ, 1) + 1 Cells(lngZ + 1, 3).Resize(, 5).ClearContents End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
ist besser, super oT.
02.05.2009 13:27:08
Tino
AW: ist besser, super oT.
02.05.2009 16:49:36
tekiela
Hi robert, Gerd, Tino und Erich!
Danke, dass ihr Euch der Problematik noch einmal angenommen habt.
Ich sehe, dank Eurer Hilfe mein Problem gelöst.
HAbe viel dazu gelernt!
Einfach Klasse das Forum!!!
Grüße von der Waterkant aus Kiel!
teKIELa
;

Forumthreads zu verwandten Themen

Gruppierung trotz Blattschutz
Jürgen

Hallo Leute,
habe hier schon kräftig gestöbert und eigentlich soweit die Lösung zu meinem Problem gefunden.
Ich möchte die Gruppierungsfunktion und die Auto-Filter-Funktion nutzen, auch wenn das Blatt
geschützt ist. Hierzu verwende ich folgenden Code:
Private Sub Workbook_open...
13.08.2008 10:55:00
Thread-ID: 1001434
5 Beiträge
Blattschutz führt zu Abbruch !
wulfjack

... das hatte ich noch nie, obwohl ich sicherlich schon viel komplexere Excel-Dateien erstellt habe!
In einer Exceldatei mit 3 Arbeitsblättern ist das erste Arbeitsblatt als "Eingabe" definiert, d.h. von den benutzten Spalten A-N und den Zeilen 1 - 2000, ist nur der Bereich B10-B2000 "unge...
18.08.2008 10:16:59
Thread-ID: 1002511
3 Beiträge
Anzeige
Blattschutz führt zu Abbruch !
wulfjack

... das hatte ich noch nie, obwohl ich sicherlich schon viel komplexere Excel-Dateien erstellt habe!
In einer Exceldatei mit 3 Arbeitsblättern ist das erste Arbeitsblatt als "Eingabe" definiert, d.h. von den benutzten Spalten A-N und den Zeilen 1 - 2000, ist nur der Bereich B10-B2000 "unge...
18.08.2008 10:49:05
Thread-ID: 1002519
2 Beiträge
Anzeige
Blattschutz beim Daten einspielen
Tobi

Hallo,
ich habe eine Frage bzgl. einem Makro.
Habe das folgende Makro mit welchem ich Daten aus einer Exceldatei in eine andere importiere. Leider übernimmt es mir auch immer die Formatierung der Zellen. In der Ausgangsdatei ist bei manchen Zellen unter "Zellen formatieren" der Haken f...
19.08.2008 09:18:00
Thread-ID: 1002794
4 Beiträge
Daten importieren (mit Blattschutz)
Marcus

Einen schönen guten Morgen,
ich habe ein kleines Problem...
Ich habe eine Arbeitsmappe (Stundenabrechnung) in der ingesamt 14 Arbeitsblätter vorhanden sind. Alle habe ich einzeln geschützt und nur die Zellen freigegeben, in denen man die Arbeitszeiten eintragen kann. Alles anderen sind...
20.08.2008 09:38:00
Thread-ID: 1003096
2 Beiträge
Blattschutz per Makro
oblivion

Hallo, bei mir steht im Blatt "Gesamt" der folgende Code. Früher war es kein Problem mit hilfe der Befehle unprotect und protect das Blatt "Gesamtdaten" zu schützen. Nur ist der Code etwas größer geworden, bzw. es wird ein weiteres Makro abgespielt. Weiß jemand wie ich mein Makro ändern muss,...
20.08.2008 23:45:00
Thread-ID: 1003339
2 Beiträge
Blattschutz
Gustav

Hallo,
ich möchte ein Blatt schützen, jedoch soll eine Spalte bzw. an einem anderen Bsp lediglich eine Zelle nicht geschützt werden.
Diese Zelle soll lediglich für das Auswählen von Einträgen aus einer Gültigkeitsliste angewählt werden.
Geht das?
Bin für jeden Tipp dankbar.
...
21.08.2008 15:19:00
Thread-ID: 1003526
4 Beiträge
Gruppierung von Blattschutz loslösen
Blattschutz

Hallo,
ich habe mein Tabellenblatt geschützt. Ich möchte aber, dass sich die Gruppierungen in der Tabelle nach Bestehen des Blattschutzes weiterhin öffnen lassen. Dies ist bei meinen Einstellungen nicht der Fall.
Kann mir jemand helfen?
Besten Dank im Voraus.
Gerd
25.08.2008 08:05:17
Thread-ID: 1004360
6 Beiträge
Blattschutz in VBA
Lars

Hallo,
ich möchte beim Klick auf eine CheckBox in Tabellenblatt A (geschützt) etwas in das geschützte Blatt B schreiben lassen. Dafür habe ich in den Code im Makro der CheckBox wie folgt eingebettet:
Private Sub Test
ActiveSheet.Unprotect "123456789"
Worksheets("B").Unprotect "1...
25.08.2008 14:03:00
Thread-ID: 1004449
3 Beiträge
Anzeige
Blinken trotz Blattschutz
Daniela

Hallo,
ich habe folgendes Problem: In meiner Tabelle gibt es zum einen geschützte und freigegebene Breiche ( damit nicht alles geändert werden kann) und zum anderen sollen bestimmte Zellen blinken. Beides funktioniert getrennt wunderbar...aber zusammen eben nicht! Stets ist entweder das gan...
01.09.2008 12:58:49
Thread-ID: 1006408
4 Beiträge
BlattSchutz
Baywatch

Hi
eine kleine Frage ich habe in meiner Datein ein Blatt welches komplett geschützt werden soll, aber die Formeln die im Blatt stehen, sollen trotzdem arbeiten istd as möglich? gleichfalls soll man auf die VBA Programmierung nicht mehr zugreifen können.
Danke und GRuß
Daniel
11.09.2008 11:58:00
Thread-ID: 1009065
9 Beiträge
WKS_Change aktiviert Blattschutz - mit Makro zu ve
Marc81

Hallo Zusammen,
Ich habe das Problem, dass ich eine Tabelle mit Blattschutz habe. Auf dieser ändert aber folgendes Makro die Zellen-Farbe, wofür ich den Passwortschutz deaktiviere und anschließend wieder aktiviere.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address...
16.09.2008 07:26:00
Thread-ID: 1009932
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige