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

Einfache IF-Anweisung

Frage Entwicklung VB for Applications

Mitglied: Philippe-M

Philippe-M (Level 1) - Jetzt verbinden

25.09.2009 um 08:53 Uhr, 2988 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 ...

Batch & Shell
Warum greift meine if-Abfrage nicht? (1)

Frage von jan999 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(2)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (16)

Frage von Lynkon zum Thema TK-Netze & Geräte ...