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, 2891 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
Microsoft Office

Excel - letzte Zeile aus mehreren Sheets ein ein neues Sheet untereinander kopieren

Frage von ITNoobNewMicrosoft Office4 Kommentare

Hallo zusammen, ich versuche, mir ein Dashboard in Excel aus verschiedenen Excel-basierten Reports zusammenzustellen. Dabei ist für mich immer ...

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, ...

VB for Applications

VBA: workbook schließt sich nicht, wenn Sheet ein Diagramm ist

gelöst Frage von Gimli3311VB for Applications2 Kommentare

Guten Abend Zusammen, habe ein zweites Problem in meinem Code. Dachte ich kann des selber lösen aber es klappt ...

Datenbanken

BULK INSERT mit Auslassen von Feldern, bzw. ergänzen von Feldern

Frage von TiCarDatenbanken1 Kommentar

Hi, ich würde gerne eine CSV Datei in eine Tabelle laden und die Tabelle hat aber noch zusätzliche Felder ...

Neue Wissensbeiträge
Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 4 StundenWindows Update

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Microsoft Office

MS Office 2019 ohne OneNote - OneNote App speichert nur in Cloud

Information von Deepsys vor 15 StundenMicrosoft Office2 Kommentare

Microsoft zeigt deutlich wohin alles bei Ihnen geht, OneNote 2019 wird es nicht mehr geben, und die Windows 10 ...

Humor (lol)

Warum man sein Gast-WLAN nicht beliebig nennen sollte

Erfahrungsbericht von Henere vor 1 TagHumor (lol)5 Kommentare

Servus, mal was aus dem Alltag. Zu Hause. Eigentlich wollte ich nur einen weiteren WLAN-AP ins Netz bringen, damit ...

Sicherheit

Schwachstelle in Intel SPI Flash Firmware kann manipuliert werden

Information von sabines vor 2 TagenSicherheit

Es existiert ein Problem in einigen Intel Chipsätzen, das durch einen lokalen Angreifer genutzt werden könnte. Die Firmware befindet ...

Heiß diskutierte Inhalte
Off Topic
1st , 2nd Level Support Techniker - Patchfeld und Switche etc.
Frage von pixel0815Off Topic30 Kommentare

Moin zusammen, ich weiß gar nicht ob es hier richtig ist, aber mich würde mal interessieren wie ihr das ...

Windows Netzwerk
LAN nur 10MB pro s trotz gb lan
Frage von tsunamiWindows Netzwerk19 Kommentare

Hallo zusammen, ich brauche mal wieder einen Anstoß in die richtige Richtung. Ich habe einen Windows 10 pc mit ...

Festplatten, SSD, Raid
Server SSD: NVMe PCIe 3.0 RAID?
Frage von bouneeFestplatten, SSD, Raid14 Kommentare

Hallo liebe Admins, mir stellt sich gerade die Frage, ob ein neuer Server mit SSD NVMe PCIe 3.0 Sinn ...

Windows 10
Windows 10 Startmenü-Einstellungen Systemweit festlegen
Frage von flotautWindows 1013 Kommentare

Guten Morgen liebe Admins, wir möchten bei uns am Lehrstuhl demnächst auf Windows 10 umsteigen. Wir installieren unsere PC's ...