Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hochzählen in VBA

Forumthread: Hochzählen in VBA

Hochzählen in VBA
17.02.2005 21:47:19
Jupp
Hallo Excel-Experten,
brauche mal professionelle Hilfe, für folgendes Problem:
ich habe bislang,unsere täglichen Wareneingänge mit folgender Formel realisiert
und zwar wie folgt:
Spalte "A" Zeile "17" "=WENN(B16="";"";A16+1)
bis
Spalte "A" Zeile "41" "=WENN(B40="":"";A40+1)
Spaltenwechsel
Spalte "G" Zeile "16" "=WENN(B40="";"";A41+1)
Spalte "G" Zeile "17" "=WENN(H16="";"";G16+1)
bis
Spalte "G" Zeile "26" "=WENN(H25="";"";G25+1)
Obige Formelei möchte ich gerne in VBA schreiben, habe aber keine Ahnung wie dass geht. Für Eure Mühe, möchte ich mich schon im voraus bedanken.
Mit freundlichen Grüssen
Jupp Thelen
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hochzählen in VBA
Jan
Hi,
du verwechselst Profi mit Demagoge. Ein Profi setzt das ein, was am sinnvollsten
und am speichersparensten ist. Für eine simple Nummerierung speicherresidente
Formeln einzusetzen ist nicht effektiv.
mfg Jan
Anzeige
AW: Hochzählen in VBA
17.02.2005 23:53:43
Josef
Hallo Jupp!
Wenn du das unbedingt mit VBA lösen willst, dann z.B. so!


      
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, i As Integer
'Nur wirksam bei Änderungen im Bereich "B16:B40" und "G16:G26"
If Not Intersect(Target, Range("B16:B40,G16:G26")) Is Nothing Then
On Error GoTo ERRORHANDLER
With Application
.EnableEvents = False      'Ereignisse ausschalten
.ScreenUpdating = False    'Bildschirmaktualisierung ausschalten
.Cursor = xlWait           'Cursor "ruhigstellen"
End With
   'Alle Zellen des Bereiches durchlaufen
   For Each rng In Range("B16:B40,G16:G26")
   
   rng.Offset(0, -1) = ""  '"Alte" Nummereierung entfernen
   
      If rng <> "" Then    'Nummerierung neu setzen
         i = i + 1
         rng.Offset(0, -1) = i
      End If
      
   Next
End If
ERRORHANDLER:  'Fehlerbehandlung

With Application
.EnableEvents = True     'Ereignisse einschalten
.ScreenUpdating = True   'Bildschirmaktualisierung einschalten
.Cursor = xlDefault
End With
End Sub 
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Hochzählen in VBA
18.02.2005 10:01:02
Jupp
Hallo Excel Experten,
Danke Dir Sepp, genau die Lösung !
Danke für eure Belehrungen, aber das TB wird täglich mehrmals gelöscht und wieder
neu beschrieben. Dabei passiert es immer wieder, dass die Formel in Spalte "A"
überschrieben wird.
Wegen dem Löschmakro, kann ich die Spalten nicht sperren.
Danke nochmals und ein schönes Wochenende
Jupp
Anzeige
;

Forumthreads zu verwandten Themen

Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA zur Dateneingabe über mehrere Blätter
Eddie

Hallo @ all,
ich suche ein kleines Makro, womit man in allen Tabellenblättern, außer ein Paar vorher defnierten einen bestimmten Wert in eine bestimmt Zelle reinkopiert...
Vielleicht geht sowas mit Comboboxen ? .. aber auch ein Makro, wo man die TB die nicht dafür verwendet werden solle...
18.08.2008 14:44:00
Thread-ID: 1002607
3 Beiträge
Anzeige
Dynamische Wertänderung in VBA
Timo

Hallo,
ich habe ein kleines Problem und möchte vorab sagen, dass ich ein wirklicher VBA Laie bin. Ich habe folgendes Makro aufgenommen (nicht selbst geschrieben, da ich das nicht kann):
Sub updatechartloanvolumetrend()
If Range("C10") = "19981998" Then
ActiveSheet.ChartObjects("...
05.09.2008 09:38:00
Thread-ID: 1007590
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Anzeige
Code für Groß- und Kleinschreibung VBA
Urmila

Hallo,
ich habe folgenden Code (Teil vom Code)
If Cells(iRow, 1).Value = "x" Then
Hierbei erkennt Excel nur das kleine x und nicht das große X. Wie kann man das umgehen, dass Groß- und Kleinschreibung nciht geachtet werden sollen bzw beachten werden sollen?
LG
Urmila
09.10.2008 14:16:51
Thread-ID: 1015349
3 Beiträge
Anzeige
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Per VBA eintragen und löschen
HansP

Hallo!
Ich habe ein bzw. mehrere Probleme. Ich muss in Excel eine kleine Verwaltung realisieren. Ich habe mehrere Tabellenblätter, die für die einzelnen Produkte stehen. Benennung ist identisch mit der Gruppe.
Die Tabelle selbst ist so aufgebaut:
lfd. Nr. | Menge | Eingang | Kürz...
06.11.2008 23:36:00
Thread-ID: 1022472
3 Beiträge
Per VBA Namen in Zellbezüge
Nico

Hallo,
nach ewiger - jedoch erfolgloser - Recherche im Web möchte ich mich mit meinem Problem an das Forum wenden.
Aus einer Arbeitsmappe mit ca. 20 Blättern soll ein Blatt kopiert werden, welches separat gespeichert und dann an verschiedene Empfänger verschickt werden soll. Das Blatt v...
07.11.2008 15:05:15
Thread-ID: 1022699
3 Beiträge
VBA abbrechen einfügen
maruseru

Hallo werte Profis
Habe den untenstehend Code übernommen und die Name der Arbeitsblätter angepasst.
Folgendes:
Besteht das Arbeitsblatt 'Selected' bereits, erscheint die Inputbox für die Eingabe des gewünschten Namen.
Wie kann ich diese Inputbox abbrechen?
Danek und Gruss
07.11.2008 15:13:40
Thread-ID: 1022705
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige