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

VBA Zeilen abfragen

Frage Entwicklung VB for Applications

Mitglied: VB-NET

VB-NET (Level 1) - Jetzt verbinden

19.12.2008, aktualisiert 13:42 Uhr, 7715 Aufrufe, 2 Kommentare

Hallo Leute,

ich bin gerade dabei ein Makro für eine bestimmte Berechnung zu Programmieren.

Leider ist mein Wissen in VBA sehr gering. Eher in VB.NET, aber das sind ja zwei verschiedene Welten.

Nun zu meinem Problem.

Es ist eine Tabelle mit mehreren Spalten vorhanden.
In Spalte C kann man aus einer DropDown-Box wählen, ob es ein A-Satz oder C-Satz ist.
In Spalte E und F trägt man bestimmte Werte ein.

Jetzt sind ca. 100 Zeilen gefüllt.

Nun soll er die Spalte E überprüfen, ob in der selben Zeile auch C = A-Satz ist. Wenn nicht, dann nächste Zeile usw.
Wenn C = A-Satz ist, dann soll er diesen Wert sich merken -> Summenbildung am Ende.
Wenn er fertig ist, dann soll er in Zeile (z.b. G12) das Ergebnis ausgeben.

Wie bewerkstellige ich das ganze?

Ich muss das am besten über eine For-Schleife laufen lassen, die ein Maximum hat und diesen Vergleich machen.
Das Problem besteht darin, dass ich nicht weiß, wie ich ihm die "Startzeile" angebe und dann fortlaufen lasse.

Vielen Dank im Voraus!

Gruß

VB-NET
Mitglied: NilsErik
19.12.2008 um 16:39 Uhr
Schau Dir mal in der Hilfe den Befehl "Cells(x,y)" an. Damit kannst Du auf einzelne Zellen Zugreifen.
Bitte warten ..
Mitglied: Guenni
19.12.2008 um 23:55 Uhr
@VB-NET

Hi,

als Makro könnte man's so machen:

01.
Private Sub A-SatzSuchen() 
02.
 Zeile = 3 'Oder wo immer auch die Werteliste anfängt 
03.
 Summe = 0 
04.
 While Not IsEmpty(Range("E" & Zeile).Value) 
05.
  If Range("C" & Zeile).Value = "A-Satz" then 
06.
   Summe = Summe + Range("E" & Zeile).Value 
07.
  End If 
08.
  Zeile = Zeile + 1 
09.
 Wend 
10.
 Range("G" & 12).Value = Summe 
11.
End Sub
Da im Schleifenkopf geprüft wird, ob (Spalte E, Zeile x) nicht leer ist,
funktioniert das natürlich nur, wenn die Spalte E keine Leerzeilen enthält.

Gruß
Günni
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Monitoring
gelöst Nagios Plugin Datum in Dateiname abfragen (2)

Frage von itazubii zum Thema Monitoring ...

Windows Server
Status RDP Session via Webseite abfragen (1)

Frage von NetMare zum Thema Windows Server ...

Microsoft Office
gelöst Excel: Einzelne Zeilen einer mehrzeiligen Zelle auslesen (3)

Frage von Booster07 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (11)

Frage von DerFurrer zum Thema Windows Installation ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...

Router & Routing
Cisco887VAW -VPN NAT-Freigabe (8)

Frage von Serial90 zum Thema Router & Routing ...