Top-Themen

Aktuelle Themen (A bis Z)

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

Visual Basic Wert in Tabelle eintragen und erweitern

Frage Entwicklung VB for Applications

Mitglied: Termiman

Termiman (Level 1) - Jetzt verbinden

29.10.2014, aktualisiert 31.10.2014, 1657 Aufrufe, 4 Kommentare

Hallo liebe Leute,

ich bekam damals schon einen sehr guten Tipp für meine kleine Excel Tabelle. http://www.administrator.de/link/virtual-basic-wert-in-eine-zelle-eintr ...

Nun würde ich mir gerne noch eine kleine Erleichterung einbauen.

0f6dd9dd246097a7bfd133dd0e544d78 - Klicke auf das Bild, um es zu vergrößern

Ich arbeite ziemlich oft mit dieser Liste und habe ein SVerweis der die Produkte und dessen Daten abruft.

Da immer wieder neue Produkte hinzukommen, würde ich gerne wie im Bild dargestellt mit einer kleinen VB Hilfe mir die Arbeit erleichtern.

Die Schwierigkeit sehe ich für mich, dass das Skript in der 'range' A1:A15 auf die nächste leere Zeilen prüfen muss, um dort den neuen Wert eintragen zu können.


Vielleicht habt ihr eine Idee

liebe Grüße und vielen Dank im Voraus


Termiman
Mitglied: 114757
30.10.2014, aktualisiert 31.10.2014
ganz einfach, mit :
01.
Range("A1").End(xlDown).Offset(1,0)
oder
01.
Cells(Rows.Count,1).End(xlUp).Offset(1,0)
erhältst du immer die nächste leere Zelle in Spalte A

Gruß jodel32

p.s. und Pack das "Virtuelle" Basic weg, das heißt "Visual" Basic
Bitte warten ..
Mitglied: Termiman
31.10.2014 um 01:12 Uhr
Hey Jodel32. Erst einmal vielen Dank für die kleine Verbesserung. face-smile

Habe schon versucht das ganze umzusetzen. Wollte das von meiner anderen Formel anpassen, bisslang noch ohne Erfolg

Sub ChangePrice()
Dim rgFound As Excel.Range
Set rgFound = ActiveSheet.Range("A1").End(xlDown).Row).Find(ActiveSheet.Range("E3"), , , xlWhole, , , True)
Else
rgFound.Offset(0, 1, 2) = ActiveSheet.Range("F3")
End If
End Sub

!!!!!!!

Wenn du mir noch einen kleine Hilfestellung geben kannst, sonst probiere ich erst einmal weiter.


liebe Grüsse

Termiman
Bitte warten ..
Mitglied: colinardo
LÖSUNG 31.10.2014, aktualisiert 02.11.2014
Hallo Termiman,
machst du so:
01.
Sub ChangePrice() 
02.
    Dim rgFound As Range,rgNew As Range 
03.
    With ActiveSheet 
04.
        'Produktnummer suchen im Bereich A2:A? 
05.
        Set rgFound = .Range("A2:A" & .Range("A1").End(xlDown).Row).Find(.Range("E4"), LookIn:=xlValues, Lookat:=xlWhole) 
06.
 
07.
        If rgFound Is Nothing Then 
08.
            'Wurde kein Produkt gefunden ermittle die nächste leere Zelle und  übertrage die Werte des neuen Produktes dorthin 
09.
            Set rgNew = .Range("A1").End(xlDown).Offset(1, 0) 
10.
            .Range(rgNew, rgNew.Offset(0, 2)).Value = .Range("E4:G4").Value 
11.
        Else 
12.
             'Produkt wurde gefunden, ändere dessen Werte entsprechend 
13.
            .Range(rgFound, rgFound.Offset(0, 2)).Value = .Range("E4:G4").Value 
14.
        End If 
15.
    End With 
16.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: Termiman
31.10.2014, aktualisiert um 18:08 Uhr
Hey Uwe,

WOW, vielen Dank funktioniert prima, vor Allem das gleich geprüft wird ob das Produkt schon existent ist. Klasse!!!

Nochmals, danke an euch beiden für die schnelle Hilfe



liebe Grüße

Termiman
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Visual Basic - Werte in ausgeblendete Zeilen eintragen
gelöst Frage von TermimanVB for Applications2 Kommentare

Guten Abend liebe Leute, ich habe vor einiger Zeit eine super Hilfestellung bei meiner kleinen Excel Liste bekommen. siehe ...

VB for Applications
Virtual Basic Wert in eine Zelle eintragen
gelöst Frage von TermimanVB for Applications2 Kommentare

Hallo liebe Leute, ich stehe vor einer kleinen Hürde bei VB für Excel. Und zwar möchte ich gerne in ...

Basic
Visual Basic Script (VBS): HTML-Tabelle generieren
Tipp von GurkenhobelBasic3 Kommentare

Für all jene, die schnell mal eine simple HTML-Tabelle benötigen, ist das folgende Skript gedacht. Der Name der fertigen ...

Datenbanken
Werte aus einer Tabelle ersetzen Werte aus einer anderen Tabelle
Frage von neotm1Datenbanken2 Kommentare

Hallo, ich versuche mit MSSQL eine Abfrage hinzubekommen, in der Werte Aus Tabelle1 Spalte2 in eine andere Tabelle schreibt, ...

Neue Wissensbeiträge
Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 2 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 2 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 14 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 21 StundenVerschlüsselung & Zertifikate1 Kommentar

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement17 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...