Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Microsoft Microsoft Office

Mitglied: ZeroCool23

ZeroCool23 (Level 1) - Jetzt verbinden

18.03.2010 um 14:57 Uhr, 2839 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
gelöst Nachricht per Regel aus "Gesendete Elemente" verschieben - Outlook (3)

Frage von slansky zum Thema Outlook & Mail ...

Batch & Shell
gelöst Batch Datei: PDF Dateien verschieben, umbenennen und löschen (4)

Frage von F0rcehunter zum Thema Batch & Shell ...

Batch & Shell
Dateien nach Datum verschieben (4)

Frage von LKDNDK12 zum Thema Batch & Shell ...

Windows Server
Zweiten DNS Server ins AD integrieren (24)

Frage von Akcent zum Thema Windows Server ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Webbrowser
Windows 7 unbeliebte Internetseite sperren (13)

Frage von Daoudi1973 zum Thema Webbrowser ...

ISDN & Analoganschlüsse
gelöst Splitter - RJ45 zu RJ11? (13)

Frage von Waishon zum Thema ISDN & Analoganschlüsse ...

LAN, WAN, Wireless
gelöst Suche Firmware Image für Cisco Aironet 1252 (10)

Frage von Herbrich19 zum Thema LAN, WAN, Wireless ...

Webbrowser
Internet Explorer schliesst direkt bei Start (10)

Frage von gabeBU zum Thema Webbrowser ...