Office: Bitte um Hilfe bei Makro-Erstellung

Helfe beim Thema Bitte um Hilfe bei Makro-Erstellung in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; In einer Excel-Tabelle sollen von Kunden Daten eingegeben und gespeichert werden. Die Tabelle soll folgende Informationen enthalten: Kundenname,... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Paffy, 26. November 2010.

Seite 1 von 2

PAFFY

Paffy Erfahrener User

Bitte um Hilfe bei Makro-Erstellung

In einer Excel-Tabelle sollen von Kunden Daten eingegeben und gespeichert werden. Die Tabelle soll folgende Informationen enthalten:

Kundenname,
Anschrift, PLZ, Ort,
Telefonnummer,
Kreditkartennummer, Kreditkarten Unternehmen.

Mittels Makro soll geprüft werden, ob in der Spalte PLZ nur 5 Ziffern (Textformat) als Postleitzahl stehen.

Ein weiteres Makro soll prüfen, ob die Kreditkartennummer richtig ist und ob das Kreditkartenunternehmen richtig eingetragen ist. Es gibt folgende Festlegungen für Kreditkartennummern.

Aufbau einer Kreditkartennummer
BIN-Code Kontonummer Prüfziffer
6 Ziffern 7 bis 9 Ziffern eine Ziffer

Eine Kreditkarte hat 14 bis 16 Stellen. Die ersten vier Stellen definieren das Kreditkarten Unternehmen (VISA, Mastercard etc.), die fünfte Stelle bezeichnet die Kreditkarten Art, ob es sich z.B. um die VISA Classic oder VISA Gold Kreditkarte handelt und die sechste Ziffer definiert die Verwendung, ob es sich um die Hauptkarte, Partnerkarte, VIP Kreditkarte etc. handelt.
Diese ersten 6 Ziffern der Kreditkarten Nummer werden auch als BIN Code bezeichnet. Die verbleibenden Ziffern sind die Kontonummer und eine Prüfziffer. Mittels Luhn-Algorithmus kann geprüft werden, ob die Kreditkartennummer richtig ist.

Kennung der Kreditkarten Identifikationsnummer nach Kreditkarten Gesellschaft
Hersteller....................................Anfang....................................Gesamtlänge
Visa...............................................4..........................................................13,16
Master...........................................51,52,53,54,55...........................................16
Diner’s Club11...............................30,36,38.....................................................14
American Express12.......................34,37.........................................................15
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Könntet Ihr mir da bitte helfen, sehe da nicht durch.
danke

Paffy, 26. November 2010

#1
SCHATZI

schatzi Super-Moderator

Hallo!

Hier gibt es eine Erklärung samt Code-Beispiel für den Luhn-Algorithmus:
http://www.vbarchiv.net/tipps/tipp_1924-luhn-algorithmus-zum-pruefen-von-identifikationsnummern.html

schatzi, 26. November 2010

#2
PAFFY

Paffy Erfahrener User

Ja danke schatzi...

das ist aber nur ein Teil der Aufgabe...
im Augenblick seh ich kein Land...
bin wie vor den Kopf geschlagen...

Hilfe :)

Paffy, 26. November 2010

#3
SCHATZI

schatzi Super-Moderator

Bitte um Hilfe bei Makro-Erstellung

Hallo!

Alles andere sollte sich mit If-Abfragen erschlagen lassen, oder nicht?

schatzi, 26. November 2010

#4
PAFFY

Paffy Erfahrener User

plz help

Paffy, 26. November 2010

#5
SCHATZI

schatzi Super-Moderator

Hallo!

Wie weit bist du denn schon?

schatzi, 26. November 2010

#6
PAFFY

Paffy Erfahrener User

ich hab die Aufgabe heute von einer Freundin bekommen. Ich selber habe ewigkeiten nichts mehr mit Makros gemacht, aber da seit Ihr eingefallen, da Ihr mir damals super geholfen habt.

wäre euch sehr dankbar..

Paffy, 26. November 2010

#7
PAFFY

Paffy Erfahrener User

Bitte um Hilfe bei Makro-Erstellung

Ich sehe in Office2007 net mehr durch..
habe lange nichts mehr mit Makros gemacht, mist...

Schade, dachte das meiner Freundin hier geholfen werden kann.

MfG Paffy

Paffy, 28. November 2010

#8
PAFFY

Paffy Erfahrener User

Sub Schaltfläche4_KlickenSieAuf()
MsgBox GetCardName("4000 0000 0000 0004")
End Sub

Private Function GetCardName(ByVal Nummer As String) As String
Dim EinStellig As Integer
Dim ZweiStellig As Integer
Dim Länge As Integer

EinStellig = Mid(Nummer, 1, 1)
ZweiStellig = Mid(Nummer, 1, 2)
Länge = Len(Trim(Replace(Nummer, " ", "")))

Select Case EinStellig
Case 4, 13
Select Case Länge
Case 13, 16
GetCardName = "Visa"
End Select
End Select

Select Case ZweiStellig
Case 51 To 55 And Länge = 16
GetCardName = "Mastercard"

Case 30, 36, 38 And Länge = 14
GetCardName = "Diners Club"

Case 34, 37 And Länge = 15
GetCardName = "Discover"

End Select

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auslesen der Zelle G3

Sub rechnen()
Dim g As String

g = Worksheets("Tabelle1").Range("G3").Value
MsgBox (g)

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hab heute mal einwenig rum experementiert.. das kam bis jetzt dabei raus...
ich möchte mir aber nicht die Kreditkartennummer per MSGBOX ausgeben lassen, sondern sie soll weiter gegeben werden, um das geprüft werden kann was für eine Karte es ist..

Wäre lieb wenn Ihr da Vorschläge hättet.

MfG paffy

Paffy, 29. November 2010

#9
MIRIKI

miriki Erfahrener User
Zitat von Paffy:

Wäre lieb wenn Ihr da Vorschläge hättet.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zumindest mit den Infos, die Du bislang gegeben hast, scheint das u.a. Beispiel sinnvolle Ergebnisse zu bringen. Zumindest hat's meine Kartennummer für gültig befunden und dem richtigen Unternehmen zugewiesen.

Gruß, Michael
Anhänge:
- bitte_um_hilfe_bei_makro_erstellung_612.xls (31,5 KB)
miriki, 29. November 2010

#10
PAFFY

Paffy Erfahrener User

Hi miriki,

danke, für das Datei.. aber irgendwie funktioniert das Teil bei mir nicht ;(

MfG Paffy

Paffy, 29. November 2010

#11
MIRIKI

miriki Erfahrener User

Zitat von miriki:

Zumindest mit den Infos, die Du bislang gegeben hast,
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... und ein paar mehr könntest Du z.B. hier finden:
http://en.wikipedia.org/wiki/List_of_Bank_Identification_Numbers
http://www.bindb.com/bin-list.html

Gruß, Michael

miriki, 29. November 2010

#12
MIRIKI

miriki Erfahrener User

Bitte um Hilfe bei Makro-Erstellung

Zitat von Paffy:

aber irgendwie funktioniert das Teil bei mir nicht ;(
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann kann ich irgendwie auch nicht helfen...

Gruß, Michael

miriki, 29. November 2010

#13
PAFFY

Paffy Erfahrener User

Schade..
aber danke...

Paffy, 29. November 2010

#14
PAFFY

Paffy Erfahrener User

hilfe zur PLZ..

folgenden Code habe ich schon erstellt,
es wird geprüft ob es sich nur um 5 Zeichen handelt,
wenn das stimmt wird ein "OK" ausgegeben,
wenn länger oder kürzer wird "Falsche Länge" ausgegeben...
soweit sogut, das klappt schon, jetzt fehlt mir noch die Prüfung das es sich nur um Zahlen handelt...
wenn es nicht gehet soll der Fehler abgefangen werden, so das das Programm weiter läuft: "on Error GoTo ...."
Es wäre schön wenn ihr mir hier noch helfen könntet...

Sub plz()
Dim p As String

p = Worksheets("Tabelle1").Range("C3").Value
MsgBox PostLeitZahl(p)

End Sub

Private Function PostLeitZahl(ByVal Nummer As String) As String

Dim Länge As String
Länge = Len(Trim(Replace(Nummer, " ", "")))
If (Länge = 5) Then
PostLeitZahl = "OK"
Else
PostLeitZahl = "Falsche Länge!"
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke im voraus... Paffy

Paffy, 30. November 2010

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Bitte um Hilfe bei Makro-Erstellung

Die Seite wird geladen...

Bitte um Hilfe bei Makro-Erstellung - Similar Threads - Bitte Hilfe Makro
Bitte um Hilfe bei erstellung eines Makros, chat GPT hängt sich auf
in Microsoft Excel Hilfe
Bitte um Hilfe bei erstellung eines Makros, chat GPT hängt sich auf: Hallo Bitte kann mir jemand helfen ich bräuchte ein Makro welches mir eine Liste erstellt aus der Zahlenkombination 0-6. beginnt soll beginnen mit 0 0 0 0 0 0 0 dann 0 0 0 0 0 0 1 aber auch...
BItte um Hilfe bei Makro Programmierung
in Microsoft Excel Hilfe
BItte um Hilfe bei Makro Programmierung: Hallo, ich habe da ein Problem. Bei der Berechnung von LOadcases benötige ich ein Makro. Ich habe 2 excel dateien. Datei 1 (Database)) Hier habe ich alle Loadcases und Ergebnisse. Datei2...
Makro? VBA? Sortieren geht nicht, brauche bitte Hilfe bei der Lösung
in Microsoft Excel Hilfe
Makro? VBA? Sortieren geht nicht, brauche bitte Hilfe bei der Lösung: Einen wunderschönen "Guten Tag", nachdem letzte Saison mein Problem ungelöst blieb muss es dieses Jahr was werden ... Ich habe eine Excel 2003 Tabelle mit mehreren, identischen...
Bitte um Hilfe bei Makro - Datenbank
in Microsoft Excel Hilfe
Bitte um Hilfe bei Makro - Datenbank: Hallo Excel-Profis, an der Hochschule müssen wir ein Portfoliomanagementsystem erstellen. So ein Portfolio besteht aus mehreren Gewerbeimmobilien. Wir sind alles Excel-Anfänger und haben mit...
noch keine Antwort - Makro Bilddoku - bitte um Hilfe!
in Microsoft Word Hilfe
noch keine Antwort - Makro Bilddoku - bitte um Hilfe!: Hallo, ich hatte vor einiger Zeit schon mal gepostet bzgl. eines Word-Makros für Bilddokumentationen. Ich habe mittlerweile ein Makro für einige Teile, aber das klappt nicht so gut (Bei...
EXCEL 2003 Makro!! brauche Hilfe bitte....
in Microsoft Excel Hilfe
EXCEL 2003 Makro!! brauche Hilfe bitte....: Guten Tag.... ich habe ein Problem mit Excel und zwar möchte ich ein Makro schreiben das in ein Tabellenblatt nach rechts geht etwas kopiert und wieder nach links auf das eine Tabellenblatt und...
bräuchte bitte MAKRO-hilfe
in Microsoft Word Hilfe
bräuchte bitte MAKRO-hilfe: hallo leute! ich möchte für unsere systemdokumentationen etc. [alles, was der kunde eben so an doks kriegen soll] eine vorlage für das deckblatt machen, bei dem alles fix vorgegeben ist - also...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden