Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Felder in zweiten Sheet verschieben

Mitglied: ZeroCool23

ZeroCool23 (Level 1) - Jetzt verbinden

18.03.2010 um 14:57 Uhr, 2959 Aufrufe, 3 Kommentare

Hallo zusammen,

Habe da eine Frage zu Excel vielleicht kann mir jemand helfen

Ich habe auf der Arbeit eine Tabelle mit 5 Spalten :

Betrag , Rechnungsnummer , Wer , Wann , Status


Diese Liste enthält ziemlich viele Einträge von Rechnungen die Bezahlt werden müssen.

Jetzt die Frage:
Ist es möglich wenn ich im Feld "Status" Bezahlt schreibe oder einfach nur "B" das Excel die 5 Datensätze autmatisch in einen 2ten Sheet verschiebt?

Also sobald der Wert "Bezahlt" im Status steht soll dieser aus der Tabelle verschwinden.

Gibt es dafür eine möglichkeit ?


Vielen Lieben Dank im voraus.


LG
Marcel
Mitglied: 76109
18.03.2010 um 21:32 Uhr
Hallo ZeroCool23!

Quellcode im VB-Editor in das Tabellenblatt mit der Statuseingabe kopieren und Konstanten entsprechend anpassen:
01.
Option Explicit
02.
Option Compare Text
03.

04.
Const MoveSheet = "Tabelle2"        'Tabelle verschieben
05.

06.
Const StatusSpalte = 5              'Status Spalte
07.
Const StatusText = "bezahlt"        'Status Text
08.

09.
Private Sub Worksheet_Change(ByVal Target As Range)
10.
    If Target.Column = StatusSpalte Then
11.
        If Target Like StatusText Then Call MoveLine(Target.Row)
12.
    End If
13.
End Sub
14.

15.
Private Sub MoveLine(ByVal Line As Long)
16.
    Dim Wks As Worksheet, NextLine As Long
17.
    
18.
    Set Wks = Sheets(MoveSheet)
19.
    
20.
    NextLine = Wks.Cells(Wks.Rows.Count, "B").End(xlUp).Row + 1
21.
    
22.
    Application.ScreenUpdating = False
23.
    
24.
    Rows(Line).Cut
25.
    Wks.Rows(NextLine).Insert Shift:=xlDown
26.
    Rows(Line).Delete Shift:=xlUp
27.
    
28.
    Application.ScreenUpdating = True
29.
End Sub
Im Tabellenblatt mit der Statuseingabe wird die Zeile ausgeschnitten und in der anderen Tabelle in der nächsten freien Zeile am Ende eingefügt.

Gruß Dieter
Bitte warten ..
Mitglied: ZeroCool23
19.03.2010 um 08:42 Uhr
Hi Dieter,


vielen lieben Dank hat alles prima funktioniert. Genau so hatte ich mir das vorgestellt.

Besten Dank !!!


LG
Marcel
Bitte warten ..
Mitglied: 76109
19.03.2010 um 09:07 Uhr
Guten Morgen Marcel!

Yepp, gern geschehen

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Outlook - Aufgaben zu Zweit bearbeiten
gelöst Frage von ArnoNymousOutlook & Mail1 Kommentar

Moin Leute, zwei Mitarbeiter sollen gemeinsam Aufgaben über Outlook bearbeiten. D.h. dass beide jederzeit die Aufgaben einsehen und bearbeiten ...

VB for Applications

Sheet in hinter letzten, verwenderten Spalte einfügen

gelöst Frage von aivilonVB for Applications9 Kommentare

Moin Zusammen Ausgangslage: Ich habe zwei Sheets. Sheet "SCData" ist Variabel in der Grösse. Darin befindet sich eine Pivot, ...

Netzwerke

Dd-wrt OpenVPN Backup-VPN auf zweit Router

Frage von DonJoeNetzwerke10 Kommentare

Hallo, ich haben auf einen dd-wrt Router A (192.168.X.A) OpenVPN-Server laufen und es funktioniert, nach dieser Anleitung nach: Ich ...

Microsoft Office

Access Abfrage Feld Formatieren

gelöst Frage von bluepythonMicrosoft Office1 Kommentar

Hallo, ich habe in einer Access Abfrage folngedes Feld: ZEITSTD: Summe von Zeit_auf_fremdkostenstelle /100*-1 das Ergebnis sieht z.b. so aus ...

Neue Wissensbeiträge
Windows 7
Updategängelung auf Windows 10, die zweite
Information von Penny.Cilin vor 2 TagenWindows 7

Hallo, da Windows 7 im kommenden Jahr nicht mehr supportet wird, werden Nutzer von Window 7 home premium wieder ...

Internet
EU-Urheberrechtsreform: Zusammenfassung
Information von Frank vor 5 TagenInternet1 Kommentar

Auf golem.de gibt es eine Analyse von Friedhelm Greis, der das Thema EU-Urheberrechtsreform gut und strukturiert zusammenfasst. Zwar haben ...

Microsoft Office

Office365 Schwachstellen bei Sicherheit und Datenschutz

Information von Penny.Cilin vor 6 TagenMicrosoft Office8 Kommentare

Auf Heise+ gibt es einen Artikel bzgl. Office365 Schwachstellen. Das ist noch ein Grund mehr seine Daten nicht in ...

Sicherheit
Schwachstellen in VPN Clients
Tipp von transocean vor 8 TagenSicherheit2 Kommentare

Moin, es gibt Sicherheitslücken bei VPN Clients namhafter Hersteller, wie man hier lesen kann. Gruß Uwe

Heiß diskutierte Inhalte
Windows Installation
Windows10 Home Neuinstallation - Raketentechnik
Frage von spacyfreakWindows Installation13 Kommentare

"Kannst du den Rechner von der Tante von WindowsXP auf Windows10 Home upgraden" haben sie gefragt? "Sicher, was kann ...

Utilities
Teamviewer 9.x "out of date" ??
gelöst Frage von keine-ahnungUtilities13 Kommentare

Moin at all, mein topaktueller teamviewer (alles 9.x - releases) verweigert seit heute die Arbeit und bemeckert: "the remote ...

Windows 10
Windows 10 verwendet FritzBox per IPv6 als DNS-Server an Stelle des per DHCP vergebenen DNS-Servers
Frage von Datax87Windows 1010 Kommentare

Hallo, ich habe ein kleines Problem mit der Namensauflösung (DNS) unter Windows 10. Mir ist heute aufgefallen, dass ich ...

Voice over IP
Anbindung Telekom Cloud PBX mit Sophos SG330
gelöst Frage von macomarVoice over IP7 Kommentare

Hallo an alle, wir beabsichtigen mit unserer alten Siemens Telefonanlage auf Telekom Cloud PBX umzusteigen. Da wir eine Verwaltung ...