Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Nona vom 13.07.2019, 20:42 Options
Makros einfügen
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!
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 vom 14.07.2019, 17:02 Options
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 vom 17.07.2019, 09:59 Options
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 vom 17.07.2019, 12:39 Options
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 vom 17.07.2019, 13:27 Options
Kannst Du mir vielleicht erklären wie ich diese Einstellung vornehmen kann..
Antwort 5 von Nona vom 17.07.2019, 13:43 Options
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 vom 17.07.2019, 13:59 Options
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 vom 17.07.2019, 14:13 Options
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 vom 21.07.2019, 12:36 Options
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 vom 21.07.2019, 14:40 Options
Antwort 10 von fedjo vom 21.07.2019, 18:57 Options
Hallo Nona,
oder an die E-Mail : unlocking@freenet.de
Gruß
fedjo
oder an die E-Mail : unlocking@freenet.de
Gruß
fedjo
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4092 Hits - 1 Antwort
Makro: Zeile einfügen
10Deluxe 19.06.2007 - 110 Hits - 7 Antworten
"Einfügen" als Makro erstellen
PierreHamburg 29.07.2007 - 71 Hits - 2 Antworten
Kompliziereten Befehl durch Makro einfügen
Mich@el 30.08.2007 - 22 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
