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, 2982 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
VB for Applications
gelöst If Statement mit SaveFileDialog - Datei Überschreiben (7)

Frage von gabrixl zum Thema VB for Applications ...

Datenbanken
SQL und C-Sharp - Grid und einfache Bearbeitungsmaske (3)

Frage von Archimedes zum Thema Datenbanken ...

Windows Server
gelöst Domänen Account mit SMB Zugang für einfache Geräte (ohne Login-Möglichkeit) (2)

Frage von kpieper zum Thema Windows Server ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Update
gelöst MS: Update-Server-Adressen OHNE Wildcards (17)

Frage von mrserious73 zum Thema Windows Update ...

Viren und Trojaner
Ransomware .nm4 (14)

Frage von Zyklo92 zum Thema Viren und Trojaner ...

Microsoft Office
+1.000 Ordner in Outlook: Wie besser? (11)

Frage von Matsushita zum Thema Microsoft Office ...