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, 1822 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 ..
Ähnliche Inhalte
Visual Studio
Visual Basic für anfänger (6)

Frage von Daoudi1973 zum Thema Visual Studio ...

Windows Server
Schlüssel - nicht Wert! - mit Gruppenrichtlinien löschen? (1)

Frage von MyApps2GO.de zum Thema Windows Server ...

Schulung & Training
Müde vom Aufbau einer Testumgebung? ==> Microsoft Virtual Labs

Link von pewa2303 zum Thema Schulung & Training ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

Ubuntu
Nextcloud 12 Antivirus App for Files (8)

Frage von horstvogel zum Thema Ubuntu ...

Server-Hardware
gelöst Empfehlung KVM over IP Switch (8)

Frage von Androxin zum Thema Server-Hardware ...