Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zelleninhalt zusammenziehen

  • Zelleninhalt zusammenziehen von Rolf St vom 12.04.2003 - 17:17:03
    • ? von Ramses vom 12.04.2003 - 17:35:31
      • Re: ? von Rolf St. vom 12.04.2003 - 19:12:21
        • Re: ? von Ramses vom 12.04.2003 - 20:25:41
          • Re: ? von Rolf St. vom 12.04.2003 - 20:34:20
    • ? von Ramses vom 12.04.2003 - 17:35:30
      • Re: ? von Rolf St. vom 12.04.2003 - 20:09:08

Betrifft: Zelleninhalt zusammenziehen
von: Rolf St
Geschrieben am: 12.04.2003 - 17:17:03

Hallo !
Ich möchte Vorname und Name in eine Zelle zusammenfügen.
C17 und D17 sollen mit einer Leerstelle in E17 zusammengefügt werden.
Ich habe diesen Code gefunden bekomme es aber nicht hin.
Cells(17, 5).Value = Cells(17, 3).Value & " " & Cells(17, 4).Value

Könnt ihr mir den Code in folgendes Makro einbauen?


Sub Rolf()
Dim Suche As Integer
Dim Zeile As Long
Dim Spalte As Integer

Sheets("Druck").Select
Range("B14:C17,D17,C18,C19,C20,D21").ClearContents
Suche = Sheets("Druck").Cells(7, 8)
Application.ScreenUpdating = False

Worksheets("Ergebnisse").Activate
Cells(1, 1).Select

For Zeile = 1 To Cells.SpecialCells(xlLastCell).Row

If Sheets("Ergebnisse").Cells(Zeile, 3) = Suche Then
Sheets("Druck").Cells(14, 2) = Sheets("Ergebnisse").Cells(Zeile, 12)
Sheets("Druck").Cells(17, 3) = Sheets("Ergebnisse").Cells(Zeile, 6)
Sheets("Druck").Cells(17, 4) = Sheets("Ergebnisse").Cells(Zeile, 5)
Sheets("Druck").Cells(18, 3) = Sheets("Ergebnisse").Cells(Zeile, 10)
Sheets("Druck").Cells(19, 3) = Sheets("Ergebnisse").Cells(Zeile, 1)
Sheets("Druck").Cells(20, 3) = Sheets("Ergebnisse").Cells(Zeile, 2)
Sheets("Druck").Cells(21, 4) = Sheets("Ergebnisse").Cells(Zeile, 4)
End If
Next Zeile


If IsEmpty(Sheets("Druck").Cells(17, 3)) Then
Sheets("Druck").Select
MsgBox "Startnummerdaten nicht vorhanden!"
Exit Sub
End If

Application.ScreenUpdating = True
Sheets("Druck").Select
Range("H7").Select
' ActiveSheet.PrintOut

End Sub

Vielen Dank für eure Hilfe!

Tschüß
Rolf





  

?
von: Ramses
Geschrieben am: 12.04.2003 - 17:35:30

Hallo,

ich verstehe dein problem nicht, die Anweisung

Cells(17, 5).Value = Cells(17, 3).Value & " " & Cells(17, 4).Value

funktioniert einwandfrei,... ntürlich muss in den Zellen auch was stehen ;-)
Hellsehen kann ich allerdings noch nicht,... deshalb müsstest du schon sagen wo die Anweisung dann letztendlich stehen soll.

Gruss Rainer

  

?
von: Ramses
Geschrieben am: 12.04.2003 - 17:35:31

Hallo,

ich verstehe dein problem nicht, die Anweisung

Cells(17, 5).Value = Cells(17, 3).Value & " " & Cells(17, 4).Value

funktioniert einwandfrei,... ntürlich muss in den Zellen auch was stehen ;-)
Hellsehen kann ich allerdings noch nicht,... deshalb müsstest du schon sagen wo die Anweisung dann letztendlich stehen soll.

Gruss Rainer

  

Re: ?
von: Rolf St.
Geschrieben am: 12.04.2003 - 19:12:21

Hallo Rainer,
in Tabellenblatt Druck C17 steht der Vorname und in D17 steht der Nachname. Vor- und Nachname möchte ich in E17 zusammenfügen.

Ich weiß nicht wo ich den Code in das Makro einfügen muß?

Vielen Dank für deine Hilfe!

Tschüß
Rolf



  

Re: ?
von: Rolf St.
Geschrieben am: 12.04.2003 - 20:09:08

Hallo Rainer!
Es funktioniert jetzt!


' Der Code darf nicht zwischen Application.ScreenUpdating = False
Sheets("Druck").Cells(17, 3).Value = Cells(17, 1).Value & " " & Cells(17, 2).Value
' und Application.ScreenUpdating = True
stehen.

Vielen DANK für deine Hilfe!

Tschüß
Rolf



  

Re: ?
von: Ramses
Geschrieben am: 12.04.2003 - 20:25:41

Hallo Rolf,

wenn du es nicht weisst,... woher soll ich es dann wissen ?
Ich weiss nicht wann und wo du den Namen haben willst.
Vor der IF-Schleife oder drin....

Egal,... du musst das ja nur dazwischen kopieren und, wahrscheinlich, mit dem Worksheet koppeln

Worksheets("Druck").Cells(17,5) = Worksheets("Druck").Cells(17,3) & " " & Worksheets("Druck").Cells(17,4)


Gruss Rainer


  

Re: ?
von: Rolf St.
Geschrieben am: 12.04.2003 - 20:34:20

Hallo Rainer!
Es funktioniert jetzt!

' Der Code darf nicht zwischen Application.ScreenUpdating = False
Sheets("Druck").Cells(17, 3).Value = Cells(17, 1).Value & " " & Cells(17, 2).Value
' und Application.ScreenUpdating = True
stehen.

Vielen DANK für deine Hilfe!

Tschüß
Rolf