Thema Datum  Von Nutzer Rating
Antwort
Rot Aufgerufene Daten Aktualisieren
 16.06.2021 09:09:23 Panderz_GG
NotSolved
16.06.2021 14:09:43 Panderz_GG
*****
Solved

Ansicht des Beitrags:
Von:
Panderz_GG		 Datum:
16.06.2021 09:09:23		 Views:
377		 Rating:
     
Antwort:
  Ja
Thema:
Aufgerufene Daten Aktualisieren

Guten Morgen/Tag/Abend!

Ich bin momentan an einem Roadblock der mein Wissen übersteigt. Kurze Daten vorab ich benutze Excel 2010 und Windows 10.

Ich arbeite komplett ohne UserForm, da es sich über Zellen+VBA Flexibler gestaltet.

Zu meinem Problem:

In der Range E2:E9 ist der Anwender in der Lage Daten für ein Fahrzeug anzugeben. Hierbei kann er schon vorhande Daten aus einer Range bei C13:J13 Fortlaufend beginnend, über das Kennzeichen such Kriterium in E2, sich anzeigen lassen und Bearbeiten. Der Code dazu sieht so aus.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub KFZAufrufen()
 Dim sh As Worksheet, arr, lastErow As Long, matchCel As Range  'Nötige Variablen
  
Set sh = ActiveSheet                                         'Variabel Deklaration
arr = sh.Range("E2:E9").Value                                'Wenn in Zukunft mehr Daten aufgenommen werden muss hier E9   entsprechend verändert werden
lastErow = sh.Range("C" & sh.Rows.Count).End(xlUp).Row + 1
  
  
 If Range("E2") = "" Then
        MsgBox "Wählen Sie ein KFZ aus!"              'Zwingt den Nutzer ein KFZ aus der Dropdown in E2 zu wählen, darf nicht verändert werden
        Range("E2").Select
    Exit Sub
End If
  
  
 If lastErow < 13 Then lastErow = 13
 'Suche nach dem KFZ welches durch die Zelle E2 definiert wird
  
 
Set matchCel = sh.Range("C13:C" & lastErow - 1).Find(WHAT:=sh.Range("E2").Value, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False)
      If Not matchCel Is Nothing Then
                MsgBox sh.Range("E2").Value & " wurde gefunden in " & matchCel.Address & "."
'Fahrzeugdaten aus der Tabelle in die in die Bearbeitung hoch holen
      sh.Range("E3:E9").Value = Application.Transpose(sh.Range(matchCel.Offset(0, 1), matchCel.Offset(0, 7)).Value)
    Exit Sub
End If
 
 sh.Range("C" & lastErow).Resize(1, UBound(arr)).Value = Application.Transpose(arr)
 sh.Range("E2:E9").ClearContents
 
End Sub

Meine Frage ist nun:

Wie kann ich die Aufgerufenen Daten Aktualisieren?

 

Beispiel:

A. gibt wert y in E2 ein.

Wert y wird in C30 gefunden.

Range D30:J30 wird zu Range E3:E9 Kopiert. (C30 ist nicht nötig, da Wert y schon in E2 vorhanden).

A. verändert in E3 denn Wert x zu z und aktieviert das makro.

Wert X wird in Zelle D30 durch Wert Z ersetzt ohne ein Duplikat zu erstellen.

Ich hoffe ich konnte mein Problem gut genug beschreiben.

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Aufgerufene Daten Aktualisieren
 16.06.2021 09:09:23 Panderz_GG
NotSolved
16.06.2021 14:09:43 Panderz_GG
*****
Solved