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

Excel vba Wert VOR Änderung auf 0 in neuer Tabelle mit Datum Zeit speichern

Frage Microsoft Microsoft Office

Mitglied: ggforum

ggforum (Level 1) - Jetzt verbinden

06.06.2014 um 21:54 Uhr, 1628 Aufrufe, 5 Kommentare

Felder:
Datum (heute), Zeit (bei Übergabe),WertName (=z.B. Meyer),Wert (z.B. 8)

Makro, was den Reset auf Null bewirkt:

Sub z1()
Dim rngCell As Range
Dim nicht As Range
Dim doch As Range
Set nicht = Range ("ohne1")
Set doch = Range ("_z1")
For Each rngCell In nicht
rngCell.Value = rngCell.Value + 1
Next
For Each rngCell In doch
rngCell.Value = 0
Next
End Sub
Danke an Dieter für die For Each - Hilfe, einfach Klasse *

Leider weiss ich nicht, wie es funktionieren soll, dass
For Each rngCell In doch
rngCell.Value = 0

"weiss", welche Zellen des Range ("_z1") das nun sind, die auf 0 gesetzt werden.
Auch müsste dann die Zellbezeichnung, die ich gern per Namen definieren kann, wenns das Ganze einfacher macht,in der Tabelle unter WertName stehen, und wenn der Name Meyer eine 8 hatte, bevor resettet wurde, dann unter Wert eine 8.

Nette Grüsse und ein wundervolles Pflingstfest mit allerbestem Wetter

Gabi
Mitglied: 116301
07.06.2014, aktualisiert um 10:28 Uhr
Hallo Gabi!

Also, in z.B.
01.
For Each rngCell In doch 
02.
    rngCell.Value = 0 
03.
Next
weiß 'rngCell' welche Zelle gerade bearbeitet wird, da es ja das gerade aktuelle Cell-Object repräsentiert. Ist im Prinzip das Gleiche, als würdest Du schreiben:
01.
Set rngCell = Range("A1")  '1. Zelle  
02.
Set rngCell = Range("A2")  '2. Zelle  
03.
...
Beispiel:
01.
Dim strAddress As String 
02.
Dim intColumn As Long 
03.
Dim intRow As Long 
04.
Dim CellX As Range 
05.
 
06.
For Each rngCell In doch 
07.
    rngCell.Value = 0 
08.
         
09.
    strAddress = rngCell.Address        '= "$A$3" 
10.
    intColumn = rngCell.Column          '= 1 
11.
    intRow = rngCell.Row                '= 3 
12.
 
13.
    Set CellX = rngCell.Offset(0, 1)    '= Range("$B$3") 
14.
    Set CellX = rngCell.Offset(0, 2)    '= Range("$C$3") 
15.
'oder: 
16.
    Set CellX = Cells(rngCell.Row, "E") '= Range("$E$3") 
17.
Next
Grüße Dieter
Bitte warten ..
Mitglied: ggforum
07.06.2014 um 13:07 Uhr
Hallo, lieber Dieter,
mein Range "doch" umfasst ca. 15 Zellen
Wie können diese 15 Zellen mit den genannten Werten als dann 15 Zeilen an das Ende einer anderen Tabelle , z.B. Tabelle2, eingetragen werden?
Habe mich heute Vormittag durch etliche Video-Tutorials gekämpft, was dazu geführt hat, dass ich bei soviel Input wohl den Wald vor lauter Bäumen nicht mehr sehe....
LG Gabi
Bitte warten ..
Mitglied: bastla
07.06.2014, aktualisiert um 13:47 Uhr
Hallo ggforum!

Lass einfach einen Zähler für die Zeilennummer in der Zieltabelle mitlaufen:
01.
intZeile = 35 'nächste freie Zeile (Annahme zum Testen - müsstest Du für die Zieltabelle ermitteln) 
02.
For Each rngCell In doch 
03.
    Worksheets("Tabelle2").Cells(intZeile, "D").Value = rngCell.Value 'Eintrag des Zellwertes in Spalte D der Zieltabelle 
04.
    intZeile = intZeile + 1 
05.
    rngCell.Value = 0 
06.
Next
Grüße
bastla
Bitte warten ..
Mitglied: ggforum
07.06.2014 um 15:30 Uhr
danke, werd ich über Pfingsten versuchen, zu testen;
Ihr wisst ja, die Mädels haben über Pfingsten viel in der Küche zu tun....
LG....
Bitte warten ..
Mitglied: 116301
07.06.2014 um 16:07 Uhr
Hallo Gabi!

Und ihr wisst ja, dass Männer das manchmal zu schätzen wissen

Grüße und schöne Pfingsten

Dieter
Bitte warten ..
Ähnliche Inhalte
Entwicklung
Excel tabelle mit sonderzeichen via vba speichern
gelöst Frage von 123660Entwicklung4 Kommentare

Hallo Zusammen, Ich hoffe ihr könnt mir weiter helfen, mein Problem ist folgendes: In meine Excel Tabelle sind viele ...

Microsoft Office
Werte aus einer Excel Tabelle in eine andere importieren.
gelöst Frage von Enoch23Microsoft Office6 Kommentare

Hallo alle zusammen, seit ca. 2 Stunden suche ich nach einer Lösung für mein Problem, und finde keins. Der ...

Microsoft Office
Excel VBA Wert hochzählen
gelöst Frage von Florian86Microsoft Office1 Kommentar

Hallo, ich habe im VBA Code folgendes stehen Range("E10") = Range("E10") + 1 Jetzt ist der Wert bei schon ...

Microsoft Office
Excel-Werte eingeben und in neue Tabelle schreiben
gelöst Frage von werner1966Microsoft Office9 Kommentare

Hallo Leute, Ich hätte da mal bitte einen Lösungsvorschlag von Euch zu Excel oder Libre Calc: Mein Wissen ist ...

Neue Wissensbeiträge
Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 16 StundenBatch & Shell8 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Humor (lol)

"gimme gimme gimme": Automatischer Test stolpert über Easter Egg im man-Tool

Information von Penny.Cilin vor 18 StundenHumor (lol)6 Kommentare

Interessant, was man so alles als Easter Egg implementiert. Ist schon wieder Ostern? "gimme gimme gimme": Automatischer Test stolpert ...

MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 1 TagMikroTik RouterOS8 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 1 TagSicherheit1 Kommentar

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Heiß diskutierte Inhalte
Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server17 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...

Windows 10
Bitlocker nach Verschlüsselung nicht mehr aufrufbar!
gelöst Frage von alexlazaWindows 1013 Kommentare

Hallo, ich besitze ein HP ZBook 17 G4 mit einem Windows 10 Pro Betriebssystem. Bei diesem Problem handelt sich, ...

Batch & Shell
Neuste Datei via PowerShell kopieren
gelöst Frage von kaiuwe28Batch & Shell11 Kommentare

Hallo zusammen, ich hatte mir mit Hilfe der Suche im Forum einen kleinen Code von colinardo rausgesucht und versucht ...