Supportnet / Forum / Tabellenkalkulation
Makros einfügen
Frage
Hallo!
Ich brauche ganz dringend Eure Hilfe.
Ich habe eine Kundentabelle erstellt. Solange der Kunde nicht bezahlt hat , sind die Zeilen rot. Sobald ich den Kunden abhacke, wird die ganze Zeile schwarz. Nun würde ich gerne die Funktion einfügen, dass nach dem Abhacken die ganze Zeile schwarz wir und auf ein anderes Blatt übertragen wird, so dass zwei Tabellen entstehen (1) Kunde hat noch nicht bezahlt und (2) Kunde hat bezahlt.
Vielen Dank im Voraus!
Antwort 1 von fedjo
Hallo,
ich habe eine Mustertabelle erstellt, die nach Eingabe eines * die Zeile in Tabelle2 überträgt und den Text schwarz formatiert.
Kundentabelle
Gruß
fedjo
ich habe eine Mustertabelle erstellt, die nach Eingabe eines * die Zeile in Tabelle2 überträgt und den Text schwarz formatiert.
Kundentabelle
Gruß
fedjo
Antwort 2 von Nona
Hallo Frejo,
vielen Dank für Deine Antwort. Leider funktionieren die Makros bei mir nicht, da mein Rechner sie als zu "riskant" einstuft. Kannst Du mir da weiter helfen?
Viele Grüße,
Nona
vielen Dank für Deine Antwort. Leider funktionieren die Makros bei mir nicht, da mein Rechner sie als zu "riskant" einstuft. Kannst Du mir da weiter helfen?
Viele Grüße,
Nona
Antwort 3 von fedjo
Hallo Nona,
Jedes Office ist erst mal auf "Hoch" eingestellt, und wird daher die Makros ablehnen.
Um mit Makros arbeiten zu können ,muss der Schutz auf "Mittel" oder "Niedrig" gesetzt werden.
Gruß
fedjo
Zitat:
Makros einfügen
Makros einfügen
Jedes Office ist erst mal auf "Hoch" eingestellt, und wird daher die Makros ablehnen.
Um mit Makros arbeiten zu können ,muss der Schutz auf "Mittel" oder "Niedrig" gesetzt werden.
Gruß
fedjo
Antwort 4 von Nona
Kannst Du mir vielleicht erklären wie ich diese Einstellung vornehmen kann..
Antwort 5 von Nona
Hab das mir der Sicherheitseinstellung eben hinbekommen.. In Deiner Tabelle ist genau mein Problem programmiert.. Dankeschön!
Wie kann ich denn Deine Programmierungen nachvollziehen und für meine Tabelle übernehmen?
Wie kann ich denn Deine Programmierungen nachvollziehen und für meine Tabelle übernehmen?
Antwort 6 von Nona
Konnte eben die Programmierung nachvollziehen.
Es fehlt jedoch noch die Funktion, dass die Zeile, sobald sie zum Blatt 2 übertragen wird aus dem Blatt 1 verschwindet...
Wäre super, wenn Du mir da noch helfen könntest.
Liebe Grüße!
Es fehlt jedoch noch die Funktion, dass die Zeile, sobald sie zum Blatt 2 übertragen wird aus dem Blatt 1 verschwindet...
Wäre super, wenn Du mir da noch helfen könntest.
Liebe Grüße!
Antwort 7 von fedjo
Hallo Nona,
in das Codefenster von Tabelle1 eingügen:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zfrei As Long
If Target.Column = 7 And Cells(Target.Row, Target.Column) = "*" Then
Zfrei = Sheets(2).Cells(65536, 1).End(xlUp).Row + 1
Sheets(2).Range("A" & Zfrei & ":G" & Zfrei) = _
Sheets(1).Range("A" & Target.Row & ":G" & Target.Row).Value2
Sheets(1).Range("A" & Target.Row & ":G" & Target.Row).Delete Shift:=xlUp
End If
End Sub
Gruß
fedjo
in das Codefenster von Tabelle1 eingügen:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zfrei As Long
If Target.Column = 7 And Cells(Target.Row, Target.Column) = "*" Then
Zfrei = Sheets(2).Cells(65536, 1).End(xlUp).Row + 1
Sheets(2).Range("A" & Zfrei & ":G" & Zfrei) = _
Sheets(1).Range("A" & Target.Row & ":G" & Target.Row).Value2
Sheets(1).Range("A" & Target.Row & ":G" & Target.Row).Delete Shift:=xlUp
End If
End Sub
Gruß
fedjo
Antwort 8 von Nona
Hallo Fredjo,
ich hoffe, Du hast noch ein wenig Geduld mit mir. Ich kriege die Programmierung immernoch nicht hin..
Darf ich Dir vielleicht einen Auszug der Tabelle schicken, damit Du mir das quasi an meinem Beispiel erklären kannst?
Vielen Dank im Voraus!
Liebe Grüße,
Nona
ich hoffe, Du hast noch ein wenig Geduld mit mir. Ich kriege die Programmierung immernoch nicht hin..
Darf ich Dir vielleicht einen Auszug der Tabelle schicken, damit Du mir das quasi an meinem Beispiel erklären kannst?
Vielen Dank im Voraus!
Liebe Grüße,
Nona
Antwort 9 von fedjo
Antwort 10 von fedjo
Hallo Nona,
oder an die E-Mail : unlocking@freenet.de
Gruß
fedjo
oder an die E-Mail : unlocking@freenet.de
Gruß
fedjo