Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Virtual Basic Wert in eine Zelle eintragen

Frage Entwicklung VB for Applications

Mitglied: Termiman

Termiman (Level 1) - Jetzt verbinden

31.05.2014, aktualisiert 00:29 Uhr, 1813 Aufrufe, 2 Kommentare

Hallo liebe Leute,

ich stehe vor einer kleinen Hürde bei VB für Excel.

Und zwar möchte ich gerne in Excel einen Wert in eine Zelle schreiben lassen. Der Hintergrunde ist der:

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

Ich habe eine Tabelle in der mittlerweile mehrere hundert Produkte eingetragen sind. Jedem Produkt ist ein fester Preis zugeordnet, welcher mit einem SVerweis im Tabellenblatt ausgegeben wird.

Jedoch kommen im Monat ständig Preisänderungen hinzu in der ich mühselig in den Zeilen scrollen muss, um die Anpassungen vornehmen zu können.

Meine Idee wäre, im oberen Bereich eine Auswahlzelle "D3" wo ich mir das Produkt ausgeben lasse und im Feld "F3" den neuen Preis eingebe. Nach Eingabe des Preises soll mit dem Button die Änderung in diesem Fall (siehe Bild) "B6" geändert werden.

Über einen oder mehrere kleine Tipps bin ich euch sehr dankbar.


liebe Grüsse

Termiman
Mitglied: rubberman
31.05.2014 um 01:37 Uhr
Hallo Termiman,

so etwa sollte das funktionieren
01.
Sub ChangePrice() 
02.
    Dim rgFound As Excel.Range 
03.
     
04.
    Set rgFound = ActiveSheet.Range("A2:A" & Range("A1").End(xlDown).Row).Find(ActiveSheet.Range("D3"), , , xlWhole, , , True) 
05.
    If rgFound Is Nothing Then 
06.
        MsgBox "Nicht gefunden.", vbCritical, "Fehler" 
07.
    Else 
08.
        rgFound.Offset(0, 1) = ActiveSheet.Range("F3") 
09.
    End If 
10.
End Sub
Grüße
rubberman
Bitte warten ..
Mitglied: Termiman
31.05.2014 um 07:36 Uhr
Hey rubberman,

vielen lieben Dank für die schnelle Antwort, vor allem zur so späten Stunde noch. Das Skript funktioniert einwandfrei, genau so hatte ich mir das gedacht.

cool



danke danke


liebe Grüsse

Termiman
Bitte warten ..
Neuester Wissensbeitrag
Microsoft Office

MS Office Excel - Formel wird angezeigt, aber nicht berechneter Wert!

Tipp von holli.zimmi zum Thema Microsoft Office ...

Ähnliche Inhalte
VB for Applications
gelöst Zelle in Excel per Klick einfärben (5)

Frage von C.Mue83 zum Thema VB for Applications ...

Datenbanken
MS Access: Mehrere Zeilen in einer Zelle zusammenfassen (2)

Frage von User1000 zum Thema Datenbanken ...

Microsoft Office
gelöst Excel: Wenn Wert in Spalte A dann kopiere Zeile (8)

Frage von michi1983 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (15)

Frage von Winuser zum Thema Hyper-V ...

Windows Server
gelöst Rechte als Admin vergeben - Zugriff verweigert (14)

Frage von Ghost108 zum Thema Windows Server ...

Router & Routing
gelöst IP Kamera für drei unabhängige Netzwerke (12)

Frage von ProfessorZ zum Thema Router & Routing ...