Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen Verbinden mit VBA

Zellen Verbinden mit VBA
15.04.2014 16:14:54
Nou
Hallo Leute
Leider habe ich keine guten VBA kenntnisse möchte dennoch einen kleinen arbeitsschritt automatisieren.
Ich werde in meiner Spalte B (Raum) immer eine Zimmernummer angeben.
Die Spalte C (Bereich), soll daraufhin immer automatisch den Bereich angeben.
Sprich wenn ich in einer Zelle in Spalte B etwas eingebe soll nebendran in der Spalte C, automatisch der Bereich erscheinen.
hier ein Beispiel wie es aussehen soll:
https://www.herber.de/bbs/user/90177.xlsx

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen Verbinden mit VBA
15.04.2014 16:17:41
Hajo_Zi
löse es mit Sverweis() und Wennfehler(), ganz ohne VBA.

AW: Zellen Verbinden mit VBA
15.04.2014 16:21:22
Nou
Leider besteht mein Betreuer euf ein kleines VBA Programm in diesem Fall :(
Weißt du vielleicht wie ich den code am besten anpasse.
Ich hab schon gelesen das ich den if, then befehl anwenden soll jedoch kenn ich mich leider gar nicht aus.

AW: Zellen Verbinden mit VBA
15.04.2014 16:24:50
Hajo_Zi
also zum Code anpassen kann ich nichts schreiben, was wohl daran liegt, das ich inhn nicht sehe.
Bei den vieklen Begriffen würde ich mit Select case arbeiten.
Gruß Hajo

Anzeige
AW: Zellen Verbinden mit VBA
15.04.2014 16:28:13
Nou
Peinlicherweise habe ich irgendwie es so versucht, aber ich habe wie du siehst etwa 20 verschiedene Räume und breiche
Dim strBereich As String
‚Wenn Spalte "Raum" ausgefüllt dann Spalte "Bereich" zuweisen
If .Cells(IngRow, 2).Value = E01 Then .Cells(IngRow, 3).Value = Op
End Sub

AW: Zellen Verbinden mit VBA
15.04.2014 16:35:27
Hajo_Zi
Ich hätte unter der Tabelle folgenden Code angeordnet.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Select Case UCase(Target)
Case "E01"
Target.Offset(0, 1) = "AT"
End Select
Application.EnableEvents = True
End If
End Sub

Gruß Hajo

Anzeige
AW: Zellen Verbinden mit VBA
15.04.2014 16:39:36
Nou
Kann ich diesen Ausdruck verwenden bis ich mit meinen ganzen bedingungen durch bin oder muss ich da was beachten?
Select Case UCase(Target)
Case "E01"
Target.Offset(0, 1) = "AT"

AW: Zellen Verbinden mit VBA
15.04.2014 16:42:35
Hajo_Zi
Du musst die restlichen Case ergänzen, diese Fleißarbeit mache ich nicht.
Also
Case "FFGR"
Target.Offset(0, 1) = "AD"
Gruß Hajo

AW: Zellen Verbinden mit VBA
15.04.2014 16:43:52
Nou
Vielen dank es funktioniert super danke
Tag gerettet danke super

AW: Zellen Verbinden mit VBA
16.04.2014 20:33:09
Nou
Ich habe ein Problem mit dem Code
Wenn ich beispielsweise mehrere Zellen in spalte b reinkopiere sollte direkt die ausgefüllte spalte c daneben stehen, jedoch geht es nur wenn ich in spalte b die Zellen einzeln ausfülle .
Liegt das an dem ucase?
Wie kann ich das beheben dass wenn ich was in mehrere Zellen in spalte b fülle die spalte c dementsprechend auch Zellen ausfüllt?
Mein Code ist :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Select Case UCase(Target)
Case "E01"
Target.Offset(0, 1) = "AT"
Case "E09"
Target.Offset(0, 1) = "EG"
Case "E08"
Target.Offset(0, 1) = "HA"
Case "E11"
Target.Offset(0, 1) = "TS"
Case "E10"
Target.Offset(0, 1) = "AT"
Case "E18"
Target.Offset(0, 1) = "AT"
Case "E19"
Target.Offset(0, 1) = "TS"
Case "E39"
Target.Offset(0, 1) = "AT"
Case "E26"
Target.Offset(0, 1) = "AT"
Case "E20"
Target.Offset(0, 1) = "GT"
Case "E43"
Target.Offset(0, 1) = "AT"
Case "E42"
Target.Offset(0, 1) = "AT"
End Select
Application.EnableEvents = True
End If
End Sub

Anzeige

338 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige