HERBERS Excel-Forum - die Beispiele

Thema: Ausziffern von Werten

Home

Gruppe

Allgemein

Problem

Die Werte in den Spalten A und B sollen in Spalte C ausgeziffert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub Ausziffern()
   Dim iRowA As Integer, iRowB As Integer
   Dim iRowLA As Integer, iRowLB As Integer
   Dim iCounter As Integer
   iRowLA = Cells(Rows.Count, 1).End(xlUp).Row
   iRowLB = Cells(Rows.Count, 2).End(xlUp).Row
   For iRowA = 1 To iRowLA
      If Not IsEmpty(Cells(iRowA, 1)) Then
         For iRowB = 1 To iRowLB
            If Not IsEmpty(Cells(iRowB, 2)) Then
               If Cells(iRowB, 2) = Cells(iRowA, 1) And _
                  IsEmpty(Cells(iRowB, 3)) Then
                  iCounter = iCounter + 1
                  Cells(iRowA, 3) = iCounter
                  Cells(iRowB, 3) = iCounter
                  Exit For
               End If
            End If
         Next iRowB
      End If
   Next iRowA
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Berechnen

scrollen berechnen Anfangskapital berechnen
Makro/VBA: Neu berechnen bis *Teil 2* Makro/VBA: Neu berechnen bis
Bestimmte Zelle mit Makro berechnen Range-Wert aus der Statistik berechnen
Zeiten (diff. in Monaten) berechnen Auflistung von Zahlen, ohne diese zu berechnen
nach 2 Werten suchen und berechnen Trend/Entwicklung berechnen
zellen berechnen Staus des Berechnens anzeigen
Zwischenzeiten berechnen Pivot - Berechnendes Feld
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
XY-Diagramm, Funktionswerte berechnen Werte bereichsweise berechnen
Arbeitstage berechnen Zinsen berechnen in VBA (Fehler)
Kalendarwoche berechnen Anzahl Tage berechnen
Problem mit copy-paste bei manuellem berechnen Matrix / Korridor berechnen
Arbeitstage berechnen Daten aus Pivottabelle berechnen
berechnen mit Combobox Soll eintragen und Zwischenstände berechnen
Doppelte Werte nicht berechnen Zinssatz mit Hilfe des Datums berechnen
Trend berechnen Restliche Tage berechnen
Zwischensumme nicht mitberechnen Bei gleichen Texten Summe berechnen
Überstunden berechnen Dynamisches Diagramm + berechnende Zellen
Formel berechnen? Zellenanzahl eines Bereiches berechnen
allgemein Wie kann ich Exccel beim berechnen *bremsen*?
Abfahrtszeit berechnen Zwischenwerte berechnen
Inhalt+Anzahl berechnen liefertermine berechnen
Rang berechnen summe aus zellen berechnen
Bundesliga Tabellenplatz berechnen ohne Matrix Intervalle berechnen und aufs Tabellenblatt
Arbeitszeit incl. Pausen berechnen Excel bleibt im Berechnen-Modus