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

Einfache IF-Anweisung

Frage Entwicklung VB for Applications

Mitglied: Philippe-M

Philippe-M (Level 1) - Jetzt verbinden

25.09.2009 um 08:53 Uhr, 2984 Aufrufe, 3 Kommentare

Hallo zusammen,

ich möchte eine einfache IF-Anweisung machen. Es sollen alle Datums, die von 2000 sind in ein neues Register kopiert werden.

Das Datum ist als Datum formatier (z.B. 01.01.2000).

Sollte die dann so aussehen:

sdatum = Range("C" & Format$(izeile)).Formula
If Active.Sheet.Cell(sdatum, 7, 2).Value = "2010" Then
Selection.Copy
Sheets("Auswertung 2010").Select
End If

Ich hab das selber kopiert. Es kann sein das es völliger Blödsinn ist .

Jemand eine Idee?

Ich Danke euch im voraus.

Grüße
Mitglied: bastla
25.09.2009 um 09:06 Uhr
Hallo Philippe_M!
Ich hab das selber kopiert. Es kann sein das es völliger Blödsinn ist
Das solltest Du ja schon aus Deinen Tests damit wissen ...

Eigentlich sollten sich die ersten beiden Zeilen durch
If Year(ActiveSheet.Cells(izeile, "C").Value) = 2010 Then
ersetzen lassen.

Grüße
bastla
Bitte warten ..
Mitglied: Philippe-M
25.09.2009 um 09:43 Uhr
Hab da mal was....



Klappt aber leider nicht...


Sub Makro3()

While (Range("C" & Format$(izeile)).Formula <> "")
sdatum = Range("C" & Format$(izeile)).Formula ' Zeile C

If izeile < "31.12.2009" Then
Selection.Copy
Sheets("Auswertung 2009").Select
ActiveSheet.Paste
End If

ActiveCell.FormulaR1C1 = "izeile"
Range("izeile").Select

izeile = izeile + 1



Wend



End Sub
Bitte warten ..
Mitglied: bastla
25.09.2009 um 14:51 Uhr
Hallo Philippe_M!

Wie wär's denn einmal mit einer Beschreibung, was Du genau erreichen willst?

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
RedHat, CentOS, Fedora
gelöst Ausgabe mit IF auswerten (8)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema RedHat, CentOS, Fedora ...

Batch & Shell
gelöst Powershell IF Abfrage Vergleichsoperatoren (4)

Frage von Peterz zum Thema Batch & Shell ...

C und C++
gelöst IF Abfrage funktioniert nicht mehr (2)

Frage von pablovic zum Thema C und C ...

Microsoft Office
IF-Funktion, die nichts tut bei false (12)

Frage von Stoffn zum Thema Microsoft Office ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (27)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (11)

Frage von RickTucker zum Thema Netzwerkmanagement ...

Outlook & Mail
Outlook Suche liefert kein Ergebnise mehr (8)

Frage von Bjoern-B zum Thema Outlook & Mail ...

Windows Server
gelöst "Kiosk"System für Demoversion und neue Versionen einer Anwendung (7)

Frage von kpieper zum Thema Windows Server ...