VBA schreiben

[Rom3o]

Hallo Leute,


ich habe folgendes Problem:

also ich soll ein VBA Modul schreiben - die laufende Nummer muss vom Programm vergeben werden. Dann dürfen Vor und Nachnamen keine Sonderzeichen enthalten, Ausnahme an mittlere stelle.

Hinzu kommt noch dass der Lagerbestand nicht negativ sein soll. Außerdem sollen die PLatzziffern in der zweiten Tabelle von 1 bis durchnummeriert und sortiert werden.



Einige Sachen könnte man mit excel bzw mit einer wenn dann funktion lösen aber es soll mit VBA gemacht werden.

Kann mir jemand helfen??

[Christian Marquardt]

Sicher, beschreibe deine Aufgabe genau, zeigt was du gemacht hast und wo die Probleme sind

[Rom3o]

ok vielleicht hier nochmal die vollständige Aufgabe:

In einer EXCEL-Datei werden für eine Buchhandlung in einer Tabelle Daten über rdie Bestände an Büchern und in einer anderen Tabelle die Bestsellerliste abgespeichert.
Die erste Zeile der ersten Tabelle enthält die Überschriften
Lfd. Nr. ISBN-Nr. Autorname Autorvorname Titel Lagerbestand.
Danach folgen durchnummeriert entsprechende Zeilen mit Buchdaten
Die erste Zeile der zweiten Tabelle enthält die Überschriften
Platzziffer ISBN-Nr. Autorname Autorvorname Titel Preis.
Danach folgen durchnummeriert entsprechende Zeilen mit Buchdaten


Schreiben Sie ein VBA-Modul, das die fehlerfreie Eingabe in die Tabellen unter folgenden Gesichtspunkten garantiert:
Die laufende Nummer in Tabelle 1 wird vom Programm vergeben.
Autorname und Vorname dürfen keine Ziffern und Sonderzeichen enthalten
(Ausnahme: - an mittlerer Stelle!).
Der Lagerbestand darf nicht negativ sein.
Die Platzziffern in der zweiten Tabelle sind von 1 bis 10 durchnummeriert und sortiert.



Die Excel Tabelle habe ich schon erstellt und das ist der Code für die laufende nummer, ist er überhaupt richtig?

Private Sub Worksheet_Change(ByVal Target As Range)
'führt Befehl nach Enter aus'

Dim N As Long
If Target.Column = 2 And Target.Row > 1 Then
For N = 2 To [b65536].End(xlUp).Row
If Cells(N, 2) <> "" Then
Cells(N, 1) = N - 1
End If
Next
End If
End Sub

Das mit dem Lagerbestand könnte mit ner wenn dann funktion klappen aber ich weiß nicht wie ich es im VBA mache. Bei den Namen verzweifle ich, ebenso wie bei der Durchnummerierung und Sortierung.

[Rudi4]

Hallo,
ist deine Anfrage noch aktuell?
Welche Excel-Version?

[Rom3o]

Hallo,
ist deine Anfrage noch aktuell?
Welche Excel-Version?

hahahaha

du hast meine excel Tabelle hier reingestellt, die ich in einem anderem Forum gepostet hab.

Nun ja sie ist aktuell und morgen ist die abgabge

[Rudi4]

Hallo,
ich dachte eigentlich, ich hätte die Aufgabe erledigt.
Schade, dass du dir die Makros nicht angesehen hast.