Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Microsoft Microsoft Office

Mitglied: ZeroCool23

ZeroCool23 (Level 1) - Jetzt verbinden

18.03.2010 um 14:57 Uhr, 2861 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
JavaScript
If Funktion mit wildcards in google sheets script (3)

Frage von Stoffn zum Thema JavaScript ...

Datenbanken
gelöst MySQL - Feld aus anderer Tabelle hinzusummieren? (5)

Frage von 1410640014 zum Thema Datenbanken ...

JavaScript
gelöst Google Sheets, Werte der gleichen Reihe nutzen, getRange (3)

Frage von Stoffn zum Thema JavaScript ...

Exchange Server
Outlook 2010 "Von-Feld" nicht vorhanden (7)

Frage von RalphT zum Thema Exchange Server ...

Neue Wissensbeiträge
Humor (lol)

Wo ist der Fehler auf dem Bild?

(11)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(14)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Heiß diskutierte Inhalte
Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Windows Server
PDF Editor für den Einsatz auf Terminal Servern (16)

Frage von kwame501 zum Thema Windows Server ...

Windows Installation
Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen (14)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Virtualisierung
Unterschied zwischen VDI und Terminal Server Lösungen (13)

Frage von tukawi06 zum Thema Virtualisierung ...