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, 7726 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
Off Topic

"Ich habe nichts zu verbergen"

(2)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Microsoft Office
gelöst VBA: Dateiinhalte in Abhängigkeit des Dateinamens importieren (4)

Frage von Booster07 zum Thema Microsoft Office ...

VB for Applications
VBA Grenzwerte in String prüfen Regex ??? Excel2010 (1)

Frage von Chillministrator zum Thema VB for Applications ...

Microsoft Office
gelöst Excel VBA: Automatische Konvertierung von Textdatei (.txt) zu Exceldatei (.xlsx) (7)

Frage von Booster07 zum Thema Microsoft Office ...

Datenbanken
MS Access: Mehrere Zeilen in einer Zelle zusammenfassen (2)

Frage von User1000 zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Linux Netzwerk
gelöst DHCP vergibt keine Adressen (32)

Frage von Maik82 zum Thema Linux Netzwerk ...

Apache Server
gelöst Lets Encrypt SSL mit Apache2 (20)

Frage von banane31 zum Thema Apache Server ...

CPU, RAM, Mainboards
Kaufberatung für mind. 8 verschiedene HighEnd-Mainboards (20)

Frage von yperiu zum Thema CPU, RAM, Mainboards ...

Mac OS X
Mac kann nicht im LAN pingen alle anderen schon (14)

Frage von smartino zum Thema Mac OS X ...