Kann ich Inhalte eines Formulares via Makro löschen? Auch mit Blattschutz?

Ich will gern das mein Formular nach abschicken oder beim Wiederaufruf geleert ist.

2 Antworten

Von einem Experten bestätigt

11.01.2022, 14:36

Danke. Aber es leert nicht die Inhalte z.B. von "G13" oder "K29". Gibt es da auch eine Möglichkeit alles in ein Makro zu packen? z.B. in den Link zum Formular.

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

11.01.2022, 14:29

Ja, selbstverständlich.

'Blattschutz aufheben
Sheets("BlattXY").Unprotect Password:="password"
...

Woher ich das weiß:Berufserfahrung

Volly68

Fragesteller

11.01.2022, 14:50

Alles gut. Hab es gerade selbst heraus bekommen. Vielen Dank nochmal

geri3d

11.01.2022, 14:52

@Volly68

Ist ja schön von Dir aber für Deinen Kommantar bekomme ich keine Punkte.

b0g!#@!

Volly68

Fragesteller

11.01.2022, 15:23

@geri3d

Tut mir sehr leid aber ich bin neu hier. So gut kenn ich mich da auch nicht aus.

geri3d

11.01.2022, 15:42

@Volly68

Es ist noch nicht zu spät. Kicke Bitte auf Hilfreich und lass ein Danke da unn damit es komplett ist morgen oder in ein paar Tagen die Hilfreichste Antwort, das sind in Summe 25 Punkte für mich.

♥

Hallo Community,

hab da mal wieder ein Problemchen... Ich habe eine Liste, über die ich jeden Morgen ein Makro laufen lassen muss. Nun ist es so, dass ich im Moment händisch nach drei Kunden filtere und bei diesen Kunden einen Termin löschen muss, da dass ERP-System hier einen Termin generiert, der falsch ist. Nun möchte ich bei diesen Kunden / in den gefilterten Zellen den Zelleninhalt (KW) ebenfalls über das Makro löschen. Meine ersten Versuche haben halbwegs hingehauen, allerdings wurden nicht nur die gefilterten Inhalte, sondern alle Inhalte in der Range gelöscht. Der nächste Versuch hat dazu geführt, dass die Zellinhalte noch da waren, aber die Überschriften gelöscht wurden ... Nun habe ich alles wieder auf Anfang gesetzt :-(

Brauche Hilfe ... Danke im Voraus.

...zur Frage

Ich möchte gerne erlauben eine Zeile zu löschen, obwohl in der Zeile enzelnen Zellen gesperrt sind und ein Blattschutz aktiv ist. Könnt Ihr mir weiterhelfen?

Hey,

also in einer Zeile befinden sind gesperrte Zellen und ungesperrte Zellen. Zudem ist auch dem gesamten Tabellenblatt ein Blattschutz.

Ich möchte gern den Nutzer des Blattes erlaube, dass dieser einfach eine Zeile löschen kann, ohne das die gesperrten sondern ausschließlich die ungesperrten Zellen gelöscht werden.

Soweit ich mich bereits eingelesen habe, kann man da was in VBA machen?!

Vielen Dank

...zur Frage

TikTok Acc Gehackt löschen lassen?

Hey, mein tiktok acc wurde gehackt und Passwort usw geändert, habe keinen Zugriff mehr. Nun würde ich den Acc gern von tiktok löschen lassen, wie kann ich das machen? Gibt es eine Art Formular dass ich ausfüllen kann um den Support das löschen zu lassen?

vielen Dank schon mal im Voraus :)

...zur Frage

Bewerbungsformular funktioniert nicht?

Guten Tag!
Ich möchte mich bei L’Oréal Paris bewerben, jedoch habe ich Schwierigkeiten mit dem Ausfüllen des Online-Formulares. Die Frage „Wie lange hast du max. für dein Praktikum Zeit?“ beantwortete ich bereits viele Male. Immer wenn ich das Formular abschicken will, steht dort, dass ich diese Frage nicht beantwortet habe und das was ich eingetragen habe, steht nicht mehr in diesem Kästchen drin! Ich habe schon alles versucht. Hilfe!?

...zur Frage

Wie kann ich das Jquery Ajax Object auslesen?

Hallo,

ich verschicke ein Formular via Ajax und Jquery.

var xhr = $.ajax({ ... });

Wenn ich mir xhr mit console.log ausgebe, habe ich das Ergebniss aus den beigefügten Screenshots.

console.log( xhr ); gibt ein Object zurück ( readyState: 1 ) Öffne ich das Object, sieht man die Infos, an die ich ran möchte.

console.log( xhr.responseText ); ist aber undefiniert.

Kann mir jemand sagen, wie ich an die Inhalte des Objekts komme?

...zur Frage

Wie kann ich Zelleninhalte via Makro mit Zellenabstand kopieren?

Ich möchte diese Frage mit einem Beispiel stellen und anmerken, dass ich vorher noch nie Makros oder VBA benutzt habe.

Ich habe eine Spalte mit Zelleninhalten (z.B."a" bis "k") und möchte über ein Makro das Ergebnis in Spalte 2 erhalten (vorzugsweise auf einem anderen Tabellenblatt). Der Abstand zwischen den gefüllten Zellen soll dann immer gleich sein.

Edit:
Die Spaltenbreite ist nicht mein Problem.

Ich möchte die Inhalte aus Zelle "Tabelle1!A3" in "Tabelle2!C1" kopieren

Der Inhalt von Zelle "Tabelle1!A4" in "Tabelle2!C85"

Der Inhalt von Zelle "Tabelle1!A5" in "Tabelle2!C169"

Der Abstand beträgt immer 84 Zellen in Tabelle 2. Das ganze sollte dann 367 mal passieren, theoretisch bis Zelle "Tabelle2!C30829"

Weiß nicht ob es verständlich ist :/

...zur Frage

Excel Makros: Wiederholungszeilen erste Seite anders?

Hallo zusammen

Leider konnte ich bis jetzt noch keine Lösung resp. Code finden, um dieses Problem zu lösen.

Aufgabenstellung: Die Zeilen 1 bis 33 wurden auf dem Tabellenblatt "Rechnung" als Wiederholungszeilen definiert. Die Zeilen 25 bis 30 sollen nur auf der ersten Seite erscheinen, danach sollen diese auf den folgenden Seiten nicht mehr erscheinen. Die Zeilen 25 bis 30 sollen auf den nächsten Seiten ausgeblendet werden und die Zeilen 31 bis 33 sollen wiederrum auf jeder Seite zu sehen sein. Die Anzahl der folgenden Seiten ist immer individuell, das heisst, es können 3, 4 oder manchmal auch 12 Seiten oder mehr sein.

Wie lautet der korrekte Code? Vielen Dank im Voraus für hilfreiche Antworten.

Pablo223344

...zur Frage

Excel vba formeln in Bereich kopieren ohne feste Werte zu löschen?

Hallo Zusammen,

ich möchte gerne mit einem commandbutton formeln in einem Bereich kopieren und auf einen anderen Bereich (selbes Layout) übertragen, aber ohne dabei feste Werte zu löschen.

Ich habe eine Grafik beigefügt, die als Beispiel dienen soll. Der Betrag von 20.000€ ist mit einer Formel aus Stunden und Stundensatz berechnet worden. Range("A1:B3") soll nun kopiert werden (nur die Formeln) und anschließend sollen diese in Range("A6:B8") eingefügt werden, allerdings ohne die festen Werte von "Stundensatz" und "Stunden" zu ersetzten duch 0 (das passiert nämlich immer wenn ich da Copy/Paste mache - egal ob mit "Inhalte einfügen" oder ohne)

Warum brauche ich für sowas ein Makro? (Das kann man doch auch per Hand machen!)

Die Tabelle ist in der Realität viel Größer (um die 1000 Zellen) und ich wollte die Bereiche dadurch schneller vereinheitlichen.

Danke schon mal für eure Unterstützung!

...zur Frage

Zeile löschen im VBA?

Hallo,

ich wollte für die Arbeit ein Formular in Excel erstellen das Einfügen von Daten beinhaltet wie auch ein Makro fürs Färben bestimmter Zeilen und Spalten.
Nun will ich noch bestimmte Zeilen löschen können. Es soll mich aber davor erst fragen ob ich die ausgewählte Zeile löschen möchte. Wie kann ich das programmieren?

Bitte um Hilfe. Danke!

...zur Frage

Kann man in Excel bestimmte Zellen in einer Zeile leeren, wenn in einer Zelle in der selben Zeile ein "x" steht?

Ich habe eine Excel-Tabelle. In dieser möchte ich bestimmte Werte durch ein Eintragen eines "x" in der selben Zeile löschen.

Ich nenne mal ein Beispiel:

Ich trage meine Werte in die Zellen B9, C9 und D9 ein. Nun will ich die Zellen B9, C9, D9 und E9 Löschen und trage in Zeile E9 ein "x" ein. Zellen sind jetzt leer, Zeile aber noch vorhanden (wegen der Daten in Spalte A).

Dasselbe könnte ich jetzt mit einer anderen Zeile machen, z.B. 42: Ich trage meine Werte in die Zellen B42, C42 und D42 ein. Nun will ich die Zellen B42, C42, D42 und E42 Löschen und trage in Zeile E42 ein "x" ein. Zellen sind jetzt leer, Zeile aber noch vorhanden (wegen der Daten in Spalte A).

Voraussetzungen:

Werte stehen in den Zeilen 6-155

das eingetragene "x" soll nur die entsprechenden Inhalte der selben Zeile löschen

Inhalte stehen in Spalten "B", "C", "D"; "x" soll eingetragen werden in Spalte "E"

gelöscht werden soll Inhalt aus "B" bis "E"

Löschung entweder sofort nach Eintrag des "x" oder mit Klick auf Schaltfläche

Ich würde mich sehr freuen, wenn es jemand gibt der mir ein Makro dazu schreibt. Ich habe mich mit diesem Thema noch nicht besonders anfreunden können :)

Danke schonmal im Voraus!

...zur Frage

VBA Makro gesucht: Inhalt von Zellen löschen wenn eine andere Zelle bestimmten "TEXT" beinhalted?

Hallo Zusammen,

ich bin absoluter VBA neuling, bräuchte aber ein einfaches Makro zu folgendem Fall:

In den Zellen der Spalte R (R6:R150) steht entweder: "STATUS1=grün" oder "STATUS2=gelb" oder "STATUS3=rot".

Wenn zum Beispiel Zelle R6 = "STATUS1=grün" dann sollen die Zellen (I6:J6) und die Zellen (L6:N6) geleert werden
Wenn R6 = "STATUS2=gelb" dann sollen die Zellen (I6:J6) geleert werden
Wenn R6 = "STATUS3=rot" dann soll nichts gelöscht werden.
Wenn R6 = "" (also leer) soll auch nicht gelöscht werden.

--> Gleiches soll für alle Zelle im Bereich (R6:R150) gelten

--> Die Spalten I,J,L,M und N müssen aber befüllbar sein, daher lässt sich das ja nicht über eine Formel machen.

Das ist alles was ich bis jetzt zusammen gebastelt habe: leider funktioniert es nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
If Target.Address = "$R$6" Then
    If IsValue(STATUS1 = grün) Then
    
            Range("4:F14").Select
            Selection.ClearContents
    End Select
End If
End Sub

Vielen Dank für eure Hilfe.

...zur Frage

MS Excel Makro Pausieren ohne Excel komplett zu pausieren?

Hi, Ich arbeite an einer art "Schiffe Versenken" für MS Excel und arbeite grade daran, dass man auf Zeit Spielen kann. dafür brauche ich logischerweise nen Timer, der die eingestellte Zeit Herunterzählt und das Spiel Beendet. Das war kein Großes Problem für mich, bis auf eine Sache: Das Makro funktioniert zwar, aber ich habe keinen Befehl gefunden der es zulässt, dass man, während der Timer läuft, noch das Spielfeld benutzen kann, da auch Excel pausiert wird und keine Änderung an den Zellen zulässt. Kennt einer von euch einen Befehl, bei dem nur das Makro angehalten wird und nicht das komplette Programm? Mein Makro sieht bis jetzt so aus:

Sub Schaltfläche1_Klicken()

Dim SE As Integer

Dim MN As Integer

Dim I As Integer

I = 0

Do While I = 0

I = 0

SE = Sheets("Eigene Flotte").Range("O26").Value

MN = Sheets("Eigene Flotte").Range("N26").Value

If SE > 0 Then

SE = SE - 1

Sheets("Eigene Flotte").Range("O26").Value = SE

Else

If MN > 0 Then

MN = MN - 1

SE = 59

(hier soll der Befehl zum Pausieren hin)

Sheets("Eigene Flotte").Range("O28").Value = SE

Sheets("Eigene Flotte").Range("N26").Value = MN

Else

Range("A1:L30").Value = ""

I = 1

End If

Loop

End Sub

...zur Frage

Excel VBA - Fotos in Tabelle einbetten / in UserForm anzeigen?

Hallo Zusammen

Ich möchte folgendes in einem Excel machen:

In Tabelle1 habe ich mehrere Zeilen die so aufgebaut sind: Spalte A = Nummer (01-99), Spalte B = Bild, Spalte C = Beschreibung, etc.

Das Bild in Spalte B möchte ich einbetten. Oder so einfügen, dass ich es z.B. in Tabelle2 mit "=Tabelle1!B2" anzeigen kann. Wie kann ich das Bild am besten hinterlegen? Ich habe schon die Bilder mit der ALT-Taste in die Zelle gezogen resp. in den Einstellungen eingestellt, dass sie "Von Zellposition- und Grösse abhängig" sind. Das hat aber nicht funktioniert.

Des weiteren möchte ich dann in einem UserForm eine ComboBox haben, mit den Nummern in Tabelle1. Sobald eine Nummer ausgewählt wurde, sollen daneben das Bild (Spalte B) und die Beschreibung (Spalte C) angezeigt werden. Wie diese Infos dann weiterverarbeitet werden, habe ich bereits vorbereitet.

Bei den Bildern habe ich die Tabelle1 und das UserForm grob dargestellt.

Vielne Dank,

Michael

...zur Frage

VBA Code Erklärung

Guten Abend zusammen. Könnte mir jemand weiterhelfen bei diesem Code. Was macht er genau in Excel? Also Die einzelnen Schritte die er durchläuft,.

Option Explicit

Public Sub Double_Red()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

lngZeile = Cells(Rows.Count, 4).End(xlUp).Row

  For lngZeilenSprung = lngZeile To 1 Step -1
    strSuchwert = Cells(lngZeilenSprung, 4).Value
      If Application.WorksheetFunction.CountIf(Range(Cells(1, 4), Cells(lngZeile, 4)), strSuchwert) <> 1 Then
        Cells(lngZeilenSprung, 4).Interior.ColorIndex = 3
      End If
  Next lngZeilenSprung

End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen